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HOW TO INTEGRATE SOFTWARE INTO THE CANON CAT 


Products designed by Information Appliance Inc* (IAI), such as 
the Canon Cat, have a number of unique features* One of them 
that directly affects third-party software development is the 
principle of editor-based software. 

In most microprocessor-based products, the user shifts between 
applications by returning to the operating system, indicated by a 
menu with a number of choices (or, equivalently t a window with a 
number of icons*) Then the user chooses the next application* 
Once having entered the application, the user gets the data on 
which to work. 

In an IAI interface, the data stays in place at all times so that 
the user can concentrate on content rather than on the system. 

As commands are given, different "applications" come to bear on 
the user's text or graphics {there are graphics primitives in the 
Cat, although the built-in software does not use them)* This is 
possible due to r.ur unified data structure which is -- all at the 
same time -- a text, a data base, a spreadsheet, and a 
programming environment. 

The user has a much simpler mental model with the IAI interface 
than with traditional products, since invoking an application 
looks just like another simple editor command. The user does not 
have to work with a number of different editors, one for each 
application* This is an improvement over the Macintosh, for 
example, in that with the Macintosh model each application must 
recreate (using provided routines) an interface that is similar 
to that of other applications. 

When developing new applications for the Cat, it is easiest, both 
on the programmer and the user, to make your application look 
just like the existing built-in software. When your application 
needs to get information from the user, it generally asks a 
question* This can be done by sending the question to the 
screen, perhaps surrounded by a few blank lines so that it is 
visible* If the user finds that the question has come out in an 
awkward place (say, in the middle of a letter), then the user can 
always delete the question or move it elsewhere* 

A typical question for an accounting package might be: 

Name of account? 

When this appears, the application should wait for a response to 
be sent to it by the ANSWER command (USE FRONT-ERASE}* Thus the 
user is free to employ any and all the features of the Cat in 
creating the answer, for example, they might leap to their 
account area, or even change disks or perform a calculation to 
find the information they need* The idea here is to leave the 
full power of the Cat available at all times. 
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When the user has formulated the answer to the question your 
application has asked, they highlight it and use the ANSWER 
command. At this point, your application is in control again and 
can do what it wishes until it asks its next question* 

This "loss of control" after a question has been asked will 
disturb some designers who are used to a forcefully directed 
dialog with the user. However, research has shown that users 
work better if they can do tasks at their own speed, and if they 
are in control. There is nothing more annoying than a program 
that demands an answer and won't let you use the system (say for 
looking up a phone number you need right now) until you are 
finished answering the computer's question -- a task that might 
take a few minutes if you have to look up something that’s in a 
file cabinet somewhere. 

One secret of the Cat’s utility is that all abilities are 
available simultaneously and instantaneously* If your 
application has a number of features or areas, then allow the 
user to create a message which activates them when desired (the 
messages sent to your application via the ANSWER command, of 
course. One set of messages might be: "AR rt to activate the 
accounts receivable package, "AP" to activate the accounts 
payable package, and "GL" to run the general ledger package. 

Once in any of these packages, the dialog would work as already 
described. 

Notice that you do not have to write any I/O editing routines. 

You can simply send strings to the screen, and receive strings 
(edited by the user). Naturally, your application may need to do 
error checking, but when an error is detected, you can just send 
a string to the screen with the message, the user can edit their 
previous response using the Cat's built-in editor, and resend it 
to your application. 

Following this protocol will keep the Cat feeling like a Cat, and 
will be least disruptive to a user’s habits. It is also very 
easy and quick to create application interfaces this way. 

Jef Raskin 
13 September 1988 
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INTRODUCTION/BACKGROUND 


BACKGROUND OF FORTH 

The Forth language was developed in the early 1970by Charles 
"Chuck" Moore. It was designed for control applications in an 
astronomical laboratory environment, Forth's interactive nature 
and its extremely small "kernel" of basic words (the Forth kernel 
typically requires only 2-5^ bytes of memory) made it ideal for 
machine control using the very limited minicomputers of the time. 

tFORTH 

The intent of this manual is to describe the "tForth" 

("token-threaded Forth") implementation of Forth designed 
specifically for use in the Information Appliance Inc, Cat 
project. The basics of Forth and Forth programming are not 
covered in a comprehensive manner. Starting Forth includes very 
good explanations of basic Forth programming and good 
descriptions of the inner structure of a simple Forth, 



ORGANIZATION OF THIS MANUAL 


This manual is organized as follows: 


Introduction: 

A very brief, general overview of the Forth 
language. This section tries to give the reader 
a feel for the Forth language by presenting 
examples and discussion of interactive and 
compiled execution of Forth words and parameter 
stack usage. 

tForth 

Programmer 

User Manual 

How to program in tForth, Examples are used to 
demonstrate how common programming tasks 
(arithmetic, memory access, character and 
numeric I/O, control structures, constants, 
variables, etc.) are performed in tForth. This 
section will give the reader a quick 
introduction to the use and power of tForth* 

tForth 

Technical 

Reference 

Manual 

Implementation-specific information required by 
those who intend to change or extend the tForth 
system. Topics covered include system memory 
usage, the vocabulary and dictionary structure, 
compilation and token*threading specifics. 

tForth 

68000 

Assembler 

How to use the tForth 68000 Assembler, 

Glossaries 

Stack notation and short descriptions of the 
words included on the tForth source disks. The 
words are grouped according to function (there 
is a list of functional groups at the start of 
the Glossary}, The words are arranged 
alphabetically within in each group. 

Appendices 

Program listings. 
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ENABLING FORTH IN THE CAT 


Forth is normally hidden away, inaccessible in the Cat. However, 
with a simple incantation you can "enable Forth," making it 
possible to switch from the Cat's editor to a Forth programming 
environment, or to run Forth programs from the Cat's editor with 
the ANSWER command. Forth enablement is associated with a given 
disk and text. If you enable Forth, record the text, change to a 
non-enabled disk, then Forth will no longer be enabled. 

Remember to exercise caution whenever Forth has been enabled. 

For example, a nonprogrammer may be trapped in Forth if they 
accidentally press the key combination SHIFT-USE FRONT-SPACE BAR 
while editing the text on a Forth-enabled disk. The key 
combination USE FRONT-SEMI-COLON will erase the disk in the drive 
if Forth is enabled. Other pitfalls exist. SO, PROCEED WITH 
CAUTION IF YOU ENABLE FORTH. READ THE DISCLAIMER AT THE 
BEGINNING OF THE MANUAL. 

How to Turn on Forth 


We will now explain how to turn on Forth, and, equally important, 
how to turn it off: 

1. To turn on Forth in a Cat, type the following phrase {be sure 
to capitalize "E", "F", and "L"): 

Enable Forth Language 

2. Highlight these three words. 

3- Hold down the USE FRONT key and, while holding it, tap the 
ANSWER key (ERASE). Then let go. This executes the ANSWER 
command, enabling Forth, You are not yet in Forth. 

Now hold down the USE FRONT key AND the SHIFT key, and, while 
holding BOTH keys, tap the SPACE BAR. You are now in the 
Cat’s Forth editor, 

5. Type the following and press the RETURN key {the letters will 
automatically appear in boldface): 

-1 wheel I savesetup re 

This step allows you to enter Forth simply by pressing 
SHIFT-USE FRONT-SPACE BAR from now on. 

To enable easy access to Forth with Step 4 only, make some 
change to a Setup parameter, then use the DISK command. This 
will save the Forth enabling information on the disk. 

Whenever you play back this disk, you can then enter Forth 
using only the procedure of Step 


- 3 - 




6, To turn off Forth, type the following and press RETURN key; 

Forth? off 0 wheel! re 

Make some change to a Setup parameter, then use the DISK 
command. This restores the Cat to normal operation, meaning 
that you will have to start over at step 1 again to Invoke 
Forth. Normal Cat users will not be trapped in Forth in case 
they happen to accidentally press SHIFT-USE FRONT-SPACE BAR. 
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TALKING TO tFORTH 


tForth is hiding in the background of every Cat system. It is 
very easy and convenient to communicate with tForth from within 
the editing environment. 

Sending Commands to tForth 

Once Forth has been enabled {see the previous page), commands and 
programs can be sent to tForth from the editor by highlighting 
the desired command string or program listing and pressing 
[ERASE] while holding the [USE FRONT] key down, tForth r s 
responses will be printed out in the editor. 

All examples in this manual are expected to be typed into the 
editor and "sent" to tForth in this manner. All examples 
presented are set off from the body of the text by two blank 
lines and are indented: 

3 dup , * 3 3 

A section of the above example was underlined. In an example, 
the underlined sections are the sections of the text which should 
be highlighted and passed to tForth by pressing the [USE 
FRONT][RETURN] key combination. After the above example was sent 
to tForth, tForth responded by printing two 3's on the screen. 

Using the Calc Command to Talk to tForth 

Commands and programs can also be sent to tForth with the use of 
the [USE FRONT] [CALC] key combination. When this method is 
used, all command strings or program listings sent to tForth must 
be preceded by a "]" character: 

]3 dup - 3 3 

The above example produced the same results as the [USE FRONT] 
[RETURN] example. The [USE FRONT][CALC] method is not used in 
this manual. 

Errors 


The [USE FRONT][RETURN] is used to let Forth know it should start 
■processing’ any highlighted words. If Forth ever has a problem 
processing an input, a beep will be issued. To see the error 
message press the [EXPLAIN] key while holding the [USE FRONT] key 
down. For example, if tForth is sent the following input: 

How now brown cow? 
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it will beep and [USE FRONT][EXPLAIN] will reveal a "can’t use" 
message. This is the error message which occurs when tForth is 
sent a command it does not recognize. 

CAUTION: ALWAYS RECORD YOUR EDITOR TEXT ON DISK BEFORE DIRECT 
EXECUTION OF tFORTH WORDS. IT IS VERY EASY TO MAKE PROGRAMMING 
MISTAKES WHICH COULD PERMANENTLY DAMAGE THE DOCUMENT. 


/ 
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A BRIEF INTRODUCTION TO FORTH 


The Forth language is comprised of many "words* (commands). This 
collection of words is referred to as the "Forth dictionary. 11 
The tForth dictionary contains approximately 600 words. The list 
below shows a few Forth words and the actions they perform: 


emit Takes a number and displays the corresponding 

ASCII character on the screen. 

+ Adds two numbers together and returns the 

result. 

words Produces a listing of all available words. 

if Words used to implement the IF...THEN 

then program control construct. 

@ Fetches a 32-bit value from memory. 


As the list shows, a Forth word can either have the format of a 
f normal f word (a sequence of letters), or it can be a punctuation 
mark, a sequence of punctuation marks, or a mixture of 
punctuation marks and characters. In a Forth program, all words 
must be separated from each other by at least one space, tab, or 
carriage return. In this document Forth commands will be shown 
in boldface* For exa^ole: 


"The Forth word words will produce a listing of all available 
words," 


Note: tForth is case-sensitive. This means that tForth thinks a 

capital W is different than a lowercase w. Thus tForth will 
think Words is a different command than words. 

If the pronunciation of a Forth word is unclear, it's first usage 
in the text will be followed by the natural language 
pronunciation enclosed in quotes and parentheses. For example: 

To take a number off of the parameter stack 
and display it, use the word . ("dot"). 

Executing a Forth Word 

Most of the words in the Forth dictionary may be executed 
directly and immediately, from the keyboard. The example below 
shows how the Forth word emit could be used to display an 
asterisk character on the screen. In the example, the underlined 
type is used to indicate which commands should be highlighted and 
sent to tForth, The normal type is used to show Forth r s 
responses, 
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Note: Do not confuse the underlined commands in the examples 
with the underlined Forth words in the text. In the examples the 
underlined commands are those commands which should be 
highlighted and sent to tForth with the ANSWER command, 

42 emit # 

emit # as was described above* is a Forth word which will display 
the character which corresponds to the ASCII value passed to it. 

Compiling Forth Words 

The interactive execution of emit in the previous example did not 
cause any code to compiled. The Forth word : ("colon") is used 
to turn the Forth compiler on: 

: printstar 42 emit ; 

The above example shows how a new word may be added to the Forth 
dictionary. The word which immediately follows : {printstar 
in the above example) is the name which will be assigned to the 
new word. The Forth words following the name and preceding the 
; will be compiled into the new definition; these are the words 
which define the actions of the new word* Since the action words 
for printstar are 42 emit, printstar will print an asterisk when 
executed. The word ; {"semi-colon") is used to turn the compiler 
off and return to the interactive execution mode. 

Note that in this example, sending the input to Forth did not 
cause the asterisk to be displayed. Since the Forth compiler was 
"on" when the "42 emit" was typed, the 42 emit was compiled 
rather than executed. Forth was able to successfully compile the 
new definition so no error beep was issued. Forth is an 
"incremental compiler"; code is compiled definition by 
definition; compilation is triggered by each reception of a line 
of input. 

The Forth Parameter Stack 


Forth is a stack-based language. Any Forth word which takes an 
input will expect to find its input parameter on the Forth 
parameter stack when it executes. Any Forth word which returns a 
value will leave the value on the parameter stack when it 
completes execution. 

The parameter stack, and stacks in general, are functionally 
similar to the spring-loaded stack of plates which can be found 
at most institutional kitchens. Whenever a plate is taken from 
the stack, it is always taken from the top of the stack of 
plates. Whenever a plate is added to the stack, it is always 
added to the top of the stack of plates, A person who does not 
want the steaming hot plate on top of the stack must remove the 
top plate before the second plate can be accessed. If no plates 
are available, the stack is empty. 
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The Forth parameter stack works the same way as the stack of 
plates* except the Forth parameter stack is set up to hold 
numeric values rather than plates. Also* just as the kitchen 
stack was designed for a certain plate size* the Forth parameter 
stack is designed for a certain numeric value size {the plate 
size of the tForth parameter stack will be discussed later), 

Interacting With the Parameter Stack 


To put a number on the parameter stack, send the number to Forth: 

3 ^ 

To take a number off the parameter stack* use the word drop. To 
take a number off the parameter stack and display it, use the 
word • ("dot"): 


To place more than one number at a time on the stack, send the 
numbers, separated from each other by a space or spaces (so that 
Forth knows they are distinct numbers), to Forth: 

3 6 8 

Now there are three numbers on the stack. If , is used, it will 
take the top number off the stack and display it. Since the 8 
was the last value placed on the stack, it will be the top value 
on the stack: 

* 8 

To place more than one number on the stack at a time, the numbers 
were separated by spaces and sent to Forth, This is the same way 
Forth commands (words) work. To take both of the remaining 
numbers off the stack, the word . can be used twice on the same 
line: 


..63 

Forth's response should be read left to right. The 6 is the 
result of the first use of . The 3 Is the result of the second 
use of 

Note what happens if , is used again: 

* 0 

You should hear a beep as , tried to remove a value from an 
empty stack and Forth responded by displaying a zero, beeping and 
issuing a "stack is empty" error message. 
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Passing Parameters to Forth Words on the Stack 


Many Forth words take input parameters from the stack and return 
results on the stack. The Forth word ♦ ("plus") is a good 
example of such a word: 

5 4^,9 

4 takes two numbers from the stack (the 5 and the 4 in the above 
example), adds them together and returns the single number result 
on the stack. In the example, . was use to display the result 
returned by * 

Summary 

* Forth programs are developed by creating new 
words out of previously existing words. 

* The parameter stack is the primary means of 
communication among Forth words, 

* The Forth language does not have many syntax 
requirements. This gives the experienced programmer 
great control over the computer but can make it 
difficult for beginning programmers to locate mistakes. 

* The interactive abilities of Forth make it a hard-to-beat 
debugging environment. Each word can be tested 
individually and interactively. 

This is the end of our brief introduction to the Forth language. 
For more introductory Forth reading, refer to the first chapter 
of Starting Forth , by Leo Brodie (Prentice-Hall, Inc., Englewood 
Cliffs, NJ 07632, 1981), 
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tFQRTH PROGRAMMER USER MANUAL 


INTRODUCTION 

Now it f s time to actually try some tForth programming. tForth 
contains words for performing many types of programming tasks. 
The available tForth words may be grouped into 19 functional 
categories: arithmetic words, stack manipulation words, 

character I/O words, numeric I/O words, structured programming 
words, etc, A complete list of these categories is shown at the 
start of the tForth glossary section, and the words in the 
glossary are grouped according to these functions. 

This section of the manual will concentrate on describing how a 
few words from the most important functional categories are 
used. The categories covered will be: 

* Vocabularies 

* Stack Operators 

* Integers 

* Program Control Structure Words 

* Character I/O Words 

* Numeric I/O Words 

* Local Variable Words 
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MOVING AROUND IN tFORTH — VOCABULARIES 


Before tForth programming can commence, the 1 layout 1 of the 
tForth dictionary should be explained from a user’s point of 
view. The words in the tForth dictionary are arranged into four 
groups of words called ’vocabularies’. The names of the four 
initial tForth vocabularies are forth , user , function , and 
arithmetic , The diagram on the following page demonstrates the 
relationships between the four initial tForth vocabularies * The 
forth vocabulary is the main or ’root’ vocabulary. The three 
other vocabularies branch out from forth (the new vocabulary 
should be ignored for now) t i,e., forth is the parent vocabulary 
of user . 

existing is a Forth word which will print out the names of all 
existing vocabularies, the names of their parent vocabularies, 
and a count of how many vocabularies may still be added to the 
system: 

existing 

function (in forth) arithmetic (in forth) user (in forth) 
forth (in forth) 12 free 

Note: There is also a fifth initial vocabulary which is 
invisible to the user and is named, appropriately, hidden * The 
hidden vocabulary contains the words used to implement the Cat 
editor. 

The Vocabulary Search Order 

In order for tForth to compile or execute a word, it must be able 
to find the word in the tForth dictionary. The programmer helps 
tForth find words by setting up a ’vocabulary search order 1 , The 
vocabulary search order is a list which tells tForth which 
vocabularies it should search through and in which order the 
vocabularies should be searched* The word searched displays the 
current search order: 

searched user forth arithmetic function 

The names indicate which vocabularies are being searched, and the 
order of the names, read from left to right, indicates the order 
in which the vocabularies are searched. 

Modifying the Search Order 

A vocabulary may be added to the front of the search order by 
executing its name. If the vocabulary was already in the search 
order, executing its name will place it first in the search 
order. For example, to have the forth vocabulary searched first: 

forth 

searched forth user arithmetic function 
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To remove a vocabulary from the search order use the word 
deactivate 

deactivate arithmetic 
searched forth user function 

Listing the Words in a Vocabulary 

The tForth command wards can be used to print a listing of all 
words in the first vocabulary in the search order: 

forth 

words 

! I char 1 csp 1 ptr " "to # ##ichrs ##ind ##wide ##11 
##sp ##tabs tfwd #> #ab #be #chars #ehrs #cmptabs 
#eount #ctrl # formats #guard #ichrs #indent #iwide 
Hearns #left tflimit #line #lmar #lnloc #long tfnextwrap 
<cr> ok 

The word forth was used to place the forth vocabulary first in 
the search order* y 

The words listing may be terminated by pressing any key* In the 
example, the carriage return key was used to prematurely 
terminate the listing* Since most of tForth 1 s 600 words are 
located in the forth vocabulary a complete listing of all words 
in the vocabulary would be dull reading {masochists, however, are 
encouraged to display the complete listing at their terminals), 

The words in a tForth vocabulary are arranged alphabetically. 

This allows tForth to locate words in the vocabulary with a very 
quick binary search algorithm* In most Forths the words are 
arranged in a chronologically ordered linked list. New words are 
added to the beginning of the vocabulary list* Locating a word 
in linked list requires that the list of words be searched 
linearly, starting from the newest word and progressing through 
the list to the oldest added word. 

If you have been reading Starting Forth you should recognize a 
few of the words ( ! and #> } in the listing above. The 
unfamiliar words are additional Forth words which were not 
described in Starting Forth * 

Adding New Words to a Vocabulary 

New words may only be added to the current "open" vocabulary. 

Only one vocabulary may be open at a time. The word addto is 
used to open a vocabulary so that words may be added to the 
vocabulary. When addto is used, it is followed by the name of 
the desired vocabulary: in each case, here points to the next 
available byte of dictionary space (see page 70 for more on 
add to) * 
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Note: The user vocabulary is the vocabulary to which all new 

"user-defined” words should be added. The function and 
arithmetic vocabularies are used by the editor so they should not 
be altered. The words in the forth vocabulary are located in 
EPROM so it is not possible to add words to the forth vocabulary. 

The example below shows how a new word is added to the user 
vocabulary. The phrase 1 addto user 1 opens the user vocabulary 
so that new words may be added* The previous open vocabulary is 
closed. 

printchar is a word which performs the same functions as the 
printstar word defined in an example in the introduction. 

To reiterate the earlier description of compilation, the Forth 
word : turns the Forth compiler on. The word ]which immediately 
follows : will be the name for the new word. The characters 
between the left and right parens form a comment string {Forth 
commenting style will be discussed later). All other words 
between the definition name and the final semicolon are compiled 
into the new definition. When the definition is later executed, 
these compiled words will be run. 

addto user 

: printchar ( -> | Prints a character, } emit ; 

Now that printchar has been compiled, words can be used to ensure 
that printchar was really added to the user vocabulary: 

user ( Make user the current vocabulary ) 

{ and then use words to list the words } 
words ( in the current vocabulary. ) 

printchar 

The word printchar is the only word in the user vocabulary, 

(Note: If you have been experimenting with your system, your 
user vocabulary may have additional words). The new word may be 
executed interactively by typing its name followed by a carriage 
return: 

printchar * 

A Short Program 

The program below is taken from page 13 of Starting Forth , It 
prints a large letter n F" using asterisk characters. 

The word decimal tells Forth that all numbers input from this 
point on are to be treated as decimal numbers, addto user opens 
the user vocabulary. The program is comprised of the five 
definitions above, and the printchar definition which was 
compiled earlier. The program was developed by first writing the 
three lowest level words: printchar , printchars , and margin. 
Next, two intermediate words, blip and bar , which use the three 
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lower level words, are defined* Finally, the highest level word, 

F , which uses the two intermediate words, is defined* Since 
Forth programs continually build upon themselves, the order in 
which words are defined is extremely important* A word ca^.iot be 
used in a new definition unless the word has been previously 
defined* 

The program is run be executing the highest level word F {use 
uppercase *F"!), 

addto user 
decimal 

: printchars { -> n [ Prints n asterisks* ) 

0 do printchar loop ; 

: margin { -> j Prints a carriage return and 30 spaces * ) 
cr 30 spaces ; 

; blip { -> | Prints 30 spaces followed by an asterisk ) 

margin printchar ; 

: bar ( | Prints 30 spaces followed by 5 stars* ) 

margin 5 printchars 1 

: F { -> | Prints a large letter . } 

bar blip bar blip blip cr ; 

F 


# 


* 

# 

Redefining a Word (Changing the Actions of a Word) 

After a word has been defined, the action of the word can be 
altered by 'redefining the word, i.e., entering a new colon 
definition which has the same name as the word to be replaced* 
For example, to change the action of printchar: 

: printchar ( -> | Prints an , ) 

64 emit ; redefining printchar 

Whenever tForth compiles a new definition, it looks at the names 
of all other words in the open vocabulary to see if a word with 
the same name already exists* If a word with the same name does 
exist, the compiler knows that the word is being redefined* 
Instead of creating a new entry in the vocabulary for the word, 
the compiler will replace the old actions of the word with the 
new actions. The message redefining <name> will be issued 
whenever a word is redefined. 
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This new version of printchar will print a f @ ! instead of a *** 
when executed* All other words which referenced printchar will 
also be affected by this change: 


F 


@@@@@ 

@ 

e 

e 


How Words Are Redefined in Other Forths 


In most Forth 1 s the redefinition of a word causes a complete new 
entry to be added to the dictionary. Because the vocabulary list 
is searched from newest entry to oldest entry, the redefined 
version of the word will be found before any previous versions of 
the word in all future dictionary searches* For example, if the 
word printchar had been redefined in most other Forths, any word 
defined later which referenced printchar would always use the 
redefined version of printchar. However, any words defined 
BEFORE printchar was redefined would ALWAYS reference the 
original, obsolete version of printchar. 

In tForth, programmers can alter the actions of definitions 
without leaving unused, obsolete code in the dictionary* Every 
word in a program will always reference the most up-to-date 
versions of other words in the program. 

Purging a Word From the Dictionary 

The tForth word purge can be used to remove any word, regardless 
of vocabulary, from the dictionary (remember that the words in 
the forth vocabulary cannot be altered because they are in 
EPROM), The example demonstrates how printchar could be removed: 

purge printchar 

What about the words which referenced printchar? Let's execute F 
to see what happens: 

F 

(X) 

Your cursor should have stopped at the point marked by the 1 (X) r 
above (you shouldn't see the ’(X} 1 though) and a beep and the 
error message M unassigned token" should have been issued. 

The first word run when F was executed above was bar (refer to 
the program listing), The first word in bar was margin . 
margin did not reference printchar so it executed without error 
and printed a carriage return and 30 spaces. The next word in 
bar was printchars , a word which did reference printchar , As 
soon as printchars tried to execute printchar , tForth displayed 
an error message which indicated that it could not find the word 
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it was supposed to execute next- This situation can be remedied 
by defining a new word named printchar : 

: printchar ( -> j Print a character. ) 

70 emit ; 


This time the redefining printchar message was not issued because 
there was no word named printchar in the vocabulary at the time 
the definition was compiled. Now F can be successfully executed: 


F 


FFFFF 

F 

FFFFF 

F 

F 


Creating New Vocabularies 


The word vocabulary is used to create new, named vocabularies. 

The new vocabulary will be empty and inactive (closed). The 
parent vocabulary for the new vocabulary will be the vocabulary 
which was open when the new vocabulary was created; 

addto user 
vocabulary testvocab 

existing testvocab (in user) function (in forth) 

arithmetic (in forth) user (in forth) forth (in forth) 11 free 


tes tvocab words 


In the example, a new vocabulary named testvocab was created* 
Since the user vocabulary was open when testvocab was created, 
the user vocabulary is the parent vocabulary of testvocab , This 
relationship was verified above by using existing to print a 
listing of all of the vocabularies and their parent vocabularies. 

Next, words was used to verify that testvocab was empty when it 
was created. 
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THE PARAMETER STACK 


In Forth, the programmer places the parameters on the stack and 
then executes the word. The word is responsible for taking the 
parameters it requires from the stack* If the word returns any 
parameters, it will leave them on the parameter stack. The 
programmer is responsible for removing any parameters returned 
from the stack* For example, consider the addition of 3 and 4, 
and the display of the sum: 

3 4 * . 7 

First, the parameters 3 and 4 are placed on the stack by entering 
the numbers separated by spaces* Next, the addition command + 
('plus 1 ) is executed* + takes the 3 and the 4 off the stack, 
adds them together, and leaves the result (7) on the stack* The 
word . takes the result off the stack and displays it. 

Structure of the Parameter Stack 


The diagram on the following page uses interlocking blocks to 
depict the functioning of the tForth parameter stack. The tForth 
parameter stack can hold up to 48 parameters* During execution 
of a program, only 5-10 parameters are typically on the stack at 
one time. 


The parameter stack grows downward in memory. The word SpQ 
(’s-p-zero 1 ) returns the address of the base of the parameter 
stack* The word sp@ {'s- p-fetch 1 } returns the address of the top 
item on the stack* Each parameter placed on the stack is placed 
in successively lower memory locations. 


spO 

sp@ 


3 

sp@ 


4 

sp@ 


286748 ( The stack is empty so both ) 

286y48 ( spO and sp@ return the ) 

( same address, the address } 

{ of the base of the stack* ) 

{ Place one item on stack, ) 

286744 { Now sp@ points at the top item ) 

( on the stack, which is located ) 

{ 4 bytes lower in memory than ) 

{ the base of the stack* ) 

{ Place another item on the stack* } 

286740 ( sp@ has been decremented by } 

{ 4 bytes again. } 


Notice that each time a parameter was added to the stack, the 
address returned by sp@ (also called the ’stack pointer’) is 
decremented by 4* This is because the tForth parameter stack is 
4 bytes wide. Each item on the stack is a 4 byte, or 32-bit, 
value. This means the largest signed number which can be placed 
on the tForth parameter stack is JFFFFFFF (hexadecimal). 
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The tForth Parameter Stack 



Room for 48 parameters Room for 46 parameters 




upper limit." 



An empty stack. 


Two Items on the stack. 



Room for 47 parameters 



One item on the stack. 





























Since one bit is used for the sign bit f this is the largest 
number which can be expressed with 31 bits, 

tPorth Is a 32-bit Forth Implementation 

Because of the stack width, tForth is categorized as a 32-bit 
Forth implementation, A 32-bit Forth fits well on the 68000 
microprocessor with its internal 32 -bit wide data path and 32 -bit 
general purpose registers* Most of the current Forths, including 
the Forth described in Starting Forth t are 16-bit Forths since 
32 -bit microprocessors have only recently become widely available. 

O bserving the Stack 

Most Forth words either put values on the stack or remove items 
from the stack, ,s is a word which displays the contents of the 
stack without disturbing the contents: 

3 4 5 6 ,s 3^56 

Since ,s does not disturb the stack in any way, it is a very 
handy tool for checking results. Another useful stack checking 
word is depth , depth returns a count of the number of items 
currently on the stack: 

depth , 4 ( There are four items on the stack, ) 

, , , , 6 5 4 3 ( Take the four values off of the stack, ) 

depth , 0 ( Now the stack is empty, ) 

tForth Words Which Operate on the Stack 

In the glossary, the tForth words which operate on the parameter 
stack are grouped together under the ’Stack Manipulation T 
heading. The stack manipulation words are used to rearrange, to 
duplicate, to remove, and to check items on the parameter stack. 

Here are some examples of the use of some of these stack 
manipulation words. The diagram on page 23 has a visual 
demonstration of the effects of these examples on the stack: 
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2 3 4 

.s 2 3 4 

swap ,s 2 
rot -s 4 

over . s 4 
dup .s 4 


( Put three items on the stack. ) 

( CHECKING THE STACK ) 

( Display the items on the stack } 

( without removing them from the stack. ) 

( REARRANGING STACK ITEMS ) 

4 3 ( Move the second stack Item to the top. } 

3 2 ( Move the third stack item to the top. ) 

( DUPLICATING STACK ITEMS ) 

3 2 3 ( Copy the second item on the stack. ) 

( Leave the copy on top of the stack, ) 
3233 ( Copy the top item on the stack. } 

( Leave the copy on top of the stack. ) 


drop 


{ REMOVING STACK ITEMS ) 

.s 4 3 2 3 ( Discard the top stack item. ) 


Simple Words Which Use the Stack 

The words which perform the basic arithmetic operations: 
addition, subtraction, multiplication, and division, are ail 
simple words which use the stack. These simple operators have 
been grouped under the n Arithmetic Operators M headings in the 
glossary. Here are some examples of their use: 


Here is the name, pronunciation, and stack notation for each word 
used below: 



( 

nl 

n2 - 

n 3 ) 

('plus’) 

1+ 

( 

nl 

- n2 

) 

('one-plus *) 

- 

( 

nl 

n2 - 

n3 ) 

('minus') 

2- 

( 

nl 

- n2 

} 

(* two-minus') 

# 

( 

nl 

n2 - 

n3 ) 

(* times') 

2 * 

( 

nl 

- n2 

) 

('two-times' ) 

/ 

( 

nl 

n2 - 

n3 ) 

('divide') 

2/ 

( 

nl 

- n2 

) 

(* two-divide') 


rood { nl n2 - n3 ) 


2 3 

•f 

.s 5 
1 + 

.5 6 


( ADDITION ) 

{ Put two numbers on the stack. ) 

{ Use + [Spins'] to add the numbers. } 
{ Display the result. } 

( Add 1 to the number on the stack. ) 

{ Display the result. ) 


(cont.) 
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{ SUBTRACTION ) 

9 6 ( Put two numbers on the stack* ) 

- ( Use “ ['minus'] to subtract the top ) 

( number on the stack from the second } 

( number on the stack: 9 * 6 *= 3 * ) 

,s 3 ( Display the result. ) 


2 - 
* 1 


2 4 

• 

,s 8 
2 * 

. 16 


50 3 

/ 


.s 16 
2 / 

. s 8 
5 mod 

. 3 


{ Subtract 2 from the number on the stack, ) 
( Remove the result from the stack and } 

( display it. ) 

( MULTIPLICATION ) 

( Put two numbers on the stack, ) 

( Multiply the two numbers. ) 

{ Display the result, ) 

( Multiply the number on top of the stack ) 

( by 2. ) 

( Remove the result from the stack and ) 

( display it. } 

( DIVISION ) 

( Put two numbers on the stack, ) 

( Divide the second number on the stack ) 

( by the number on top of the stack: ) 

( 50 / 3 = 16 . ) 

( Display the result, ) 

{ Divide the number on top of the stack ) 

( by 2. ) 

( Display the result, ) 

{ Divide the number on top of the stack ) 

( by 5 and return the remainder. ) 

( Remove the remainder from the stack and ) 

{ display it: 8 / 5 s 1 , remainder - 3 - ) 
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Manipulating the Stack 

Examples are cumulative 




initial stack 


after swap 


after 




after 


after drop 


after over 


























All of these words take one or two numerical inputs, perform an 
arithmetic operation upon the input (s) , and return a numerical 
result on the stack. However, as will be shown below, the stack 
does not have to be used for numerical values only. 

Comparison Operators and Flags 

The tForth comparison operators are another group of simple words 
which use the stack. The comparison operators treat their inputs 
as numbers and return a flag as a result. A flag is a value 
which may only represent one of two states: "true" or "false". 

In general, tForth treats any non-zero flag as a true flag and 
any flag with a value of 0 as a false flag. All of the words 
listed under the "Comparison Operators" section of the glossary, 
except the words max and min , will return a specific 
non-zero value, ’-l", if the result of their operation is true 
and will return 'O’ if the result of their operation is false. 
Here are some examples of comparison operator use* 


Here is the name, pronunciation, and stack notation for each 
comparison operator used below: 


0 < 

( 

n - f ) 

(’zero-less-than') 

0= 

( 

n - f ) 

('zero-equal 1 } 

= 

( 

nl n2 - f ) 

('equal'} 

0 

( 

nl n2 - f ) 

('not-equal') 

< 

{ 

nl n2 - f ) 

{’less-than') 

> 

( 

nl n2 - f ) 

{'greater-than') 


inrange ( nl. n2 n3 * f ) 


max { nl n2 - n3 ) 
min { nl n2 - n3 ) 


3 0= . 0 
-2 0 < . -1 


{ SINGLE PARAMETER COMPARISONS ) 
( False, 3 is not equal to 0* } 

{ True, -2 Is less than 0* ) 


3 3 = . -1 

3 3 <> * 0 
6 3 < . 0 

6 3 > * -i 


528 Inrange 

4 8 max , 8 
4 8 min . 4 


{ DOUBLE PARAMETER COMPARISONS ) 
( True, 3 is equal to 3- ) 

{ False, 3 and 3 are equal. ) 

{ False, 6 is not less than 3* ) 
{ True, 6 is greater than 3* ) 

{ TRIPLE PARAMETER COMPARISONS ) 
-1 { True, 2<=5<=8 ) 

( 8 is the larger of 4 and 8. ) 

( 4 is the lesser of 4 and 8. ) 


Note that the max and min comparison operators are the only 
ones which return numbers instead of flags. 
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Forth Is Not a "Typed" Language 


In many languages , the type of each program parameter must be 
declared. If a parameter is a number it must be declared to be 
of type byte, integer, long, real, signed, unsigned. If a 
parameter is declared to be of type address or flag, it can only 
be used by functions which operate on addresses or flags. A 
language which requires typed parameters can help the programmer 
avoid mistakes since it is constantly cross checking actual input 
parameter types with the allowed input parameter types for a 
given operation. 

The Forth language does not enforce typed parameters. Any type 
of item (number, address, flag) may be placed on the parameter 
stack. Since all Forth words can use the parameter stack, it 
follows that all Forth words can accept any type of input 
parameter. 

There are both advantages and disadvantages to non-typed 
languages; 

DISADVANTAGES 

* A non-typed language cannot help the programmer by 
double checking all input parameters used. 

* It is difficult for code written in non-typed languages 
to be shared since the types of the input and output 
parameters being used is usually not easily determined by 
the reader of the program listing. 

ADVANTAGES 

* A program written in a non-typed language should 
execute faster than a program written in a typed 
language because all of the code required for 
parameter checking is removed, 

* A non-typed language gives the programmer the 
extra control over the language which is often required 
to get more performance out of a computer. 

In Forth, as in any language, the second disadvantage above can 
be overcome by interspersing useful, thoughtful comments 
throughout the program code. The Forth community has taken the 
commenting solution a step farther by developing a suggested 
Forth commenting style which has been widely accepted. This 
commenting style, called 'stack notation' is discussed next. 
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STACK NOTATION 


Stack notation is a standard method of commenting the stack usage 
of Forth words. For example: 

< ( nl n2 • f ) 

This is the stack notation for the word < (’less-than f }. The 
word ( {*left-paren 1 } is a Forth commenting word. Because ( is a 
Forth word, it must be surrounded on either side by at least one 
space or tab. Any characters in a Forth program which lie 
between parentheses are considered to be comments and are ignored 
by the Forth compiler. The characters between the parentheses 
above comprise the stack notation for < ■ 

In stack notation, characters to the left of the f - 1 are used to 
indicate the inputs a Forth word expects to find on the parameter 
stack when it starts execution. Characters to the right of the 
1 -’ are used to indicate the outputs a Forth word will leave on 
the parameter stack when it completes execution. 

In stack notation, the following codes are used to indicate 
parameter types: 


CODE 

MEANING HEXADECIMAL RANGE 

f 

Boolean flag 

0 = false, non-zero 

c 

7-bit ASCII 
character 

0...7F 

b 

unsigned 8-bit 
number 

O...FF 

w 

unsigned i6-bit 
number 

0...FFFF 

n 

signed 32-bit 
number 

-80000000...7FFFFFFF 

u 

unsigned 32 -bit 
number 

0,..FFFFFFFF 

a 

32 -bit address 

0...FFFFFFFF 


Here are other examples of stack notation. Note that a digit 
suffix is used to differentiate multiple parameters of the same 
type: 


words 

( - ) 

{ words 
{ outputs. 

t sites no 
) 

inputs and returns no } 

fill 

( a 0 b - 

) ( fill 

( outputs. 

takes 

) 

three inputs and returns no 
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key ( 


c ) { key takes no inputs and returns one ) 

{ output. ) 

# /mod ( nl n2 n3 - n4 n5 } 

( # /mod is a word which accepts multiple ) 
{ numeric parameters. Digits are used ) 

( the ’ n f code to differentiate the ) 

( parameters* ) 

-trailing { a n - a n* } 

When an output parameter is followed immediately by an 
apostrophe character it means the output parameter is a slightly 
modified version of an input parameter, rather than a completely 
new parameter* For example, -trailing takes as inputs a string 
address (a) and the length of the string (n)* -trailing strips 
any trailing spaces from the string and returns the new, adjusted 
length of the string (n' , pronounced ’n-prime'}. 

tForth Stack Notation 


In tForth, the stack notation structure has been slightly 
extended to include comments: 

c ( { b | Compile byte b at here* ) 

The 1 | 1 marks the end of the normal stack notation and the start 
of the comment field* The comment field can be as long as 
necessary (multi-line) as long as it is terminated by a closing 
paren* 
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INTEGERS AND MEMORY OPERATORS 


Variable data is program data whose value changes during 
execution of a the program. Constant data is program data whose 
value will remain constant throughout program execution. For 
example, the equation used to calculate the area of a circle is a 
familiar equation which makes use of both constant and variable 
data: 


(PI) # (radius, squared) = area 

{10Q*PI} * {[radius (meters)] *2} = area (cm ~2) 

The M100 # PI) T or '{100*3- i4 * 314) \ is the constant in the 
circle area equation. The radius is the variable data- Scaling 
is used (the PI value is multiplied by 100 to eliminate 
fractional values) to ensure that only integer values are 
required, 

Forth Note: Most Forth implementations do not support floating 
point number input/output or floating point math calculations. 
Many Forth designers/programmers feel that any floating point 
operation can be implemented using integer math with the proper 

scaling and that the integer math operations will be faster and 

more compact than their floating point counterparts. 

Declaring Constant and Variable Program Data 


The tForth word integer is used to define and name both 
constant and variable program data. The general format for the 
use of integer is: 

<value> Integer <name> 

<value> is the 4 byte value for and <name> is the name of the 
constant or variable data, integer makes <name> an executable 
Forth word. Whenever <name> is executed it will put its 
associated value on top of the parameter stack. 

Forth Note: If Forth were a strictly postfix language the syntax 
for integer would be: 

<value> <address of name string> integer 

The constant data for the circle area equation is defined as 
follows: 

314 integer pi # 100 

The variable data could be defined as follows: 

1 integer smallradius 
7 integer mediumradius 
15 integer largeradius 
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When one of the above names is executed, it will push its 
associated data onto the stack: 

pi*100 . 3*4 

smallradius * 1 
mediumradius , 7 
largeradius , 15 

Forth Note: The following colon definition performs the same 
action as the integers above when executed: 

: mediumradius 7 i 

When mediumradius is executed, it will push a r 7* onto the 
stack. The drawback of the colon definition is that the f 7‘ is 
"hardcoded 11 into the definition. If mediumradius must put a 
different value on the stack, the definition would have to be 
recompiled, 


Integers, on the other hand, were designed so that their contents 
could be easily modified during program execution and thus are 
ideal for use as program variables. The operators used to alter 
the contents of integers are discussed below. 

Now let's make the circle area equation part of a Forth word 
which, when passed a radius value (expressed in meters) will 
return the corresponding area (expressed in centimeters squared): 


: circlearea ( nl 

- 

n2 } 

dup 

( 

Make a copy of the radius, ) 

ft 

{ 

Multiply: radius # radius , square it 

pl # 100 * 

( 

Multiply the radius squared by the } 

» 

< 

pi*!00 constant, ) 


smallradius circlearea . 31 ^ 
mediumradius circlearea , 15386 
largeradius circlearea , 70650 


Altering Integer Data 


The tForth words co t +to f on f and off are used to modify 
integer data: 


23 largeradius to 
largeradius , 23 


5 largeradius +to 
largeradius * 28 


largeradius off 
largeradius . 0 


( Put a ’23' in the largeradius integer, } 

{ Get and display the contents of } 

{ largeradius „ } 

( Add , 5 t to the contents of largeradius , ) 

( Get and display the contents of ) 

( largeradius , ) 

( Put a ’false' flag, 'O'* in largeradius , } 

{cont,} 
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largeradius on ( Put a 'true' flag, '-l 1 , in largeradius . ) 

largeradius * -1 

to is used to change the contents of an integer to a specified 
value. +to is used to add a 4 byte value to the contents of an 
integer, off and on are boolean integer operators, usually 
used on integers which are being used as flags, off is used to 
turn an integer value 'off 1 , i.e. to set the integer’s value to 
'false 1 (0). on is used to turn an integer value 'on', i.e. to 
set the integer’s value to 'true 1 {"-l 1 or 'non-zero 1 ). 

The Use of Integer s Versus the Direct Alteration of Memory 

tForth's generic integer data structure {can be used to hold 
either constant or variable data) frees the programmer from 
having to treat variable data differently than constant data. 

They also free the programmer from having to remember the 'type' 
of a particular piece of memory. This is especially convenient 
in a multi-programmer programming environment where each 
programmer may not be intimately familiar with the constants and 
variables being used by another programmer. Any tForth 
programmer is able to get the value of any integer without having 
to know whether another programmer is using the integer as a 
constant or variable. 


A limitation of integers, however, is that they only support 
interaction with 4 byte data values. Handling of data sizes 
which are smaller (byte, word) or larger (arrays, data 
structures) than 4 bytes requires that the contents of memory be 
accessed directly. 


Directly Accessing the Contents of Memory 


The following words are the main words used for direct 
manipulation of data in memory. The stack notations for these 
words are: 


WORD PRON, 


STACK NOTATION 


! 


e 


wl 


1 store 1 ( n a - ] Stores the 4-byte value on 

the parameter stack, r n', into memory 
starting at the address ’a’ . ) 

'fetch 1 { a - n | Fetches the 4-byte value 1 n 1 

stored in memory starting at address 'a 1 
and returns it on the parameter stack. ) 

'w-store 1 { w a - | Stores the lower 2 bytes of 

the 4-byte value on the parameter stack 
into memory starting at address ’ah ) 
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w@ 


c! 


c@ 


♦ I 


1 w-fetch' ( a - w | Fetches the 2-byte value ' w' 
stored in memory starting at address 'a’ 
and returns it in the lower two bytes of 
the number on top of the parameter stack, 
the upper two bytes are set to zero- } 


'c-store* ( c a - | Stores the lowest order byte 

of the 4-byte value on top of the parameter 
stack into memory starting at address r a’.) 

*c-fetch 1 ( a - c | Fetches the 1-byte value ’c 1 

stored in memory at address f a’ and returns 
it in the least significant byte of the number 
on top of the parameter stack. The upper 
three bytes are set to zero. ) 

t plus-store t ( n a - | Adds the 4-byte increment 

value 'n* to the 4-byte value located in 
memory starting at address 'a'* ) 


Directly Altering Integer Data 

The execution of an integer variable name puts the value of the 
integer variable directly on the stack. To get the address of 
the location where an integer's data is stored, use the word 
addr ("adder 1 ') immediately after the name of the integer: 


hex 

largeradius addr . 478 FE { The contents of the integer ) 

( largeradius are located in ) 

{ starting at address t 478FE 1 * ) 

To directly access the contents of largeradius f without using 
to or executing largeradius t the direct memory access words 
described above may be used to directly access the memory 
location ( r 479^6') where qty’s contents are stored: 

12345678 479F6 ! ( Store the 4 byte value '12345678' in ) 

{ memory starting at the address * 479^6’ , ) 
479F6 @ . 12345678 ( Fetch and display the 4 byte value ) 

{ residing in memory starting at address ) 

( *479F6’, ) 

{ Store the 2 byte value *9876' in memory } 

( starting at the address 1 479^6 *. ) 

( Fetch and display the 2 byte value ) 

{ residing in memory starting at address } 

( , 479F6 1 . ) 

( Store the 1 byte value f FF f into memory ) 

( starting at the address 1 479^6*• ) 

( Fetch and display the 1 byte value ) 

( residing in memory starting at address ) 

( 1 479F6 t , ) 


9876 4?9F6 wr 
479F6 w@ , 9876 

FF 479F6 cl 
4?9F6 c@ . FF 
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5 479F6 I { Store the 4 byte value 1 12345678* in } 

( memory starting at the address T ^479^6 11 * ) 

1 479F6 +1 ( Add 1 to the 4 byte value located at } 

( address T 479^6". ) 

479F6 @ . 6 ( Fetch and display the 4 byte incremented ) 

( result. ) 

Other Useful Direct Memory Access Operators 

and! , or! , notl ( and xor! are memory operators which perform 
logical operations with data stored somewhere in memory. 

fill t move , and cmove are memory operators which perform memory 
operations on large sections of memory. See the "Memory 
Operators" section of the Glossary for more information of these 
words. 

Starting Forth Note 


Chapter 8 of Starting Forth discusses how the defining words 
variable and constant are used to create named variable 
locations and constant values in Forth. In tForth variable and 


constant have been replaced by the single word integer. The 
following table compares integers, variables, and constants: 

ACTION 

INTEGER 

VARIABLE/CONSTANT 

Create a 
named variable 
location: 

5 integer 

fred variable fred 

Store a value 
into a variable: 

7 fred to 

7 fred ! 

Fetch a value 
from a variable: 

fred 

f red @ 

Increment the 
contents of a 
variable: 

1 fred +to 1 fred +! 

Get the address 
of a variable 
location: 

fred addr 

fred 


Create a 
named constant 
value: 

12 integer 

dozen 12 constant dozen 

Get the 

constant value: 

dozen 

dozen 


As the table shows, there is no substantial difference between 
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constant and integer when the purpose is the creation of 
constant data. The difference between integer and variable 
when creating variable data is that integer allows the creation 
of initialized variable data and the value of a variable created 
with integer can be obtained by simply executing the name of 
the integer variable* Variables created with variable must use 
the @ operator to obtain their values. If a program works 
mainly with 4 byte variables and never needs the addresses of the 
variable locations f the use of integer to create those 
variables can save many f fetch’ operations during the execution 
of a program* The integer operators to and +to are also 
more readable commands than the memory operators ! and +! 

Displaying the Contents of Memory 

The tForth utility word dump is used to display the contents of 
memory; 

479^6 10 dump 

479F6 FF 76 56 78 00 00 00 DA 81 00 07 2F 83 63 6e 74 

*vVx./. cnt 


dump has the following stack notation; 
dump { a n - } 


dump displays T n f bytes of data starting at address ’a 1 in 
memory* The start address of the memory dump is shown on the far 
left of the display* dump displays memory in l6-byte chunks. 

Each byte in the memory dump is separated from the next byte by a 
space. The ASCII equivalents of the 16 byte values shown in the 
memory dump are listed on the far right side of the display. 

Here is how dump would be used to display 40 (hex) bytes of 
memory: 


479F6 40 dump 

479F6 FF 76 56 78 
47A06 07 37 89 63 
47A16 61 74 65 24 
47A26 31 89 64 65 


00 00 00 DA 81 00 
75 72 72 65 6e 63 
07 30 88 64 65 63 
63 69 73 69 6f 6e 


07 2F 83 63 6E 74 
79 24 07 35 85 64 
69 73 69 6f 6e 07 
32 07 38 8c 6D 61 


.vVx.. / .cnt 

.7 * currency®.5 * d 
ate$.0.decision. 
1 .decisions.8.ma 


. 34 - 





PROGRAM CONTROL STRUCTURES 


There are four major types of program control structures: 

1. Conditional Execution 

Code within a conditional execution structure is 
executed only if certain conditions are met. 

The tForth words used for the implementation of 
conditional execution structures are: 

if else then 

2, Definite Loops 

Definite, or counted, loops are used to cause a set 
of instructions to be executed a specific number of times 
The number of times the loop is to be executed is known 
prior to the start of the loop. The tForth words used 
for the implementation of definite loops are: 

do *loop loop i 

3, Indefinite Loops 

Indefinite loops are used to cause a set of instructions 
to be executed an unknown number of times. 

These types of loops are termed 1 indefinite f because 
the number of times the loop will be executed is 
determined during execution of the loop. The tForth 
words used for the implementation of indefinite loops are 

begin until again while 

4. Forced Execution 

Forced execution words are used when program execution 
must be unconditionally redirected to another section of 
the code. The tForth forced execution words are: 

abort abort" exit leave 

A Special Note about tForth Program Control Structures 

In most Forth systems, program control structures can only be 
used within colon definitions. In tForth, program control 
structures can be used interactively. This is very useful for 
testing out ideas since the extra work required to create a new 
definition is eliminated and the dictionary doesn't become 
cluttered with test definitions. Several of the examples 
presented in the section are to be executed interactively. 
Interactive execution of a program control structure commences 
when the final word in the program control structure is entered 
(try the examples below)« 
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Conditional Execution 


The conditional execution structures allow programs to make 
decisions- In the following example, the word decision decides 
whether a 5 should be displayed by examining the flag passed to 
it: 


: decision { f 

if 

5 . 

then ; 


) { Create a definition named decision * ) 

{ Check the flag, ) 

( IF it is true, non-zero, display a 5* ) 

{ Mark the end of the ’if.,.then' structure. ) 


0 decision 
1 decision 5 


( 0 is false so the 5 is not displayed. ) 
f 1 is true so the 5 is displayed, ) 


When the flag passed to if is true (non-zero) the code between 
the if and the then will be executed- When the flag is false 
(0), if will reroute program execution to the code which 
immediately follows the then . 


The 1 if,.,then 1 structure can be extended by inserting an else in 
the middle: 


; decision2 ( f 
if 

5 . 

else 

6 , 

then ; 


) 

( IF the flag is true, display a five,.* } 
{ ELSE the flag is false, display a six, ) 


0 decision2 6 
1 decision2 5 


( Flag was false so a 6 was displayed, ) 
{ Flag was true so a 5 was displayed, } 


Definite Loops -- ’Do ... Loop’ 


The following interactive example shows a ’do,..loop’ being used 
to display the numbers from 0 through 9: 


10 ( Place the limit on the stack, ) 

0 { Place the index on the stack, ) 

do ( Start the loop, ) 

i , ( This is the code to be executed ) 

( each time through the loop, ) 
loop 0123456789 ( End of the loop. ) 

Execution of a counted ’do,.,loop’ always requires the 
specification of the number of times the loop is to be executed. 
The count is specified by placing two numbers on the stack. 

These two numbers are referred to as the loop "limit” and the 
loop ’’index”. The number of times the loop will be executed is 
determined by subtracting the index value from the limit value. 
So* in the above example, the loop will be executed 10 times. 


When the word do executes it moves the limit and index values 
from the parameter stack to the return stack. The index value 
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will be the top item on the return stack and the limit value will 
be the second item on the return stack, do is executed only once 
in a 'do...loop’. When the word loop executes it subtracts one 
from the index value on the return stack and compares the new 
index value to the limit value, loop is executed each time 
through the loop. When the index value equals the limit value, 
the loop is immediately terminated (this is why the limit value, 

10, was not displayed). 

The word i copies the top item on the return stack and places the 
copy on top of the parameter stack, i is normally used during 
execution of a 1 do...loop 1 to get the value of the current loop 
index (which is the top item on the return stack during a 
'do...loop*). In the example, i was used to get the current loop 
count each time through the loop and . was used to take the 
number off of the parameter stack and display it. 

Note that the code in a definite loop will always be executed at 
least once since the loop termination check occurs at the end of 
the loop. 

Definite Loops -- T Do ... +Loop t 

The 1 do..*+loop T definite loop structure is used when there is a 
need for a counted loop which "counts” by a value other than 
one. For example, to display the even numbers between 0 and 10: 

10 2 do ( Pass the loop limit and index to do . ) 

i . ( Get the current index and display it, ) 

2 ( Place the loop increment value on the ) 

( stack for +loop , ) 

+loop 2468 

The main difference between 'do.,.loop's and ’do,..+loops* is 
that * loop is passed the desired increment value for the loop 
index. The number of times a 1 do,..+loop T will execute is 
determined using the Following equation (where square brackets 
indicate "integer part of rf ): 

[(limit-index}/increment] = number of times loop will be executed 

So, the loop above was executed (10-2J/2 = 4 times. +loop also 
accepts negative increment values. When a negative increment 
value is used, the loop will not terminate until the index 
becomes less than the limit so the equation for calculating loop 
execution cycles becomes: 

[(limit-index)/incrementJ+l - number of times loop will be executed 

10 20 do 

i . 

-2 

+loop 20 18 16 14 12 IQ 
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A mistake such as will result in a seemingly infinite loop: 

0 10 do { Start at ’10' and count to *0** ) 

i ♦ 

3 

+loop 

The loop will eventually terminate. The initial loop index value 
f IQ 1 will be continually incremented by 3 until at some point, it 
gets so large that it will not be able to be expressed as a 
32-bit value. When the index.value reaches this 32-bit "cut-off" 
the value will appear to change from a very large postive number 
to a very large negative number. This large negative index value 
will continue to be incremented by 3 and eventually will reach 
zero. 

Indefinite Loops 

The most common indefinite loop structure is the T begin., .until * 
loop. In a * begin.. .until 1 loop, the code between the begin 
and the until is executed until the flag passed to until is 
true {non-zero). If the flag passed to until is false (0) , 
until will reroute program execution back to the code which 
immediately follows the begin. For example, the 'begin,,.until' 
loop below will not terminate until the user presses the f a f 
key. The example uses the word key , which has not yet been 
discussed, to obtain the user's input and to place the ASCII 
value of the character pressed on the parameter stack. Since the 
ASCII value for 'a 1 is 97* a comparison is made to determine 
whether the key pressed was the T a f key: 

decimal 

begin 

key 97 = 

until 

After this example is entered the text will remain highlighted 
UNTIL the lowercase r a' key is pressed. 

Placing Conditionally Executed Code in an Indefinite Loop 

while is a conditional-test word which may be included in any 
indefinite looping structure, while allows code which is to be 
conditionally executed to be included in an indefinite loop. If 
the flag passed to while is true (non-zero), the code following 
the while will be executed. If the flag passed to while is 
false (0), then the code after the nearest following while , 
again , or loop will be executed, again always reroutes 
program execution back up to the code which immediately follows 
the begin 

To use the example below, send the underlined text to tPorth and 
then press the 'a 1 key six times. Each time the f a r key is 
pressed (after the 'a T key is pressed) the current index value 
will be displayed and incremented. Press any other key to 
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terminate the loop: 


decimal 

0 integer index 
begin 

key 97 = 

while 

index 

1 index +to 
again 0 12 3^5 


( change to base 10 } 

{ Define an integer variable to be } 

( used to hold an index value, ) 

( Start the loop* } 

( Did the user press the 'a 1 key ? } 

( WHILE the user did press the 'a' ) 

( key execute the following code. ) 

( Display the current index value* ) 

{ Increment the index by one ) 

( and go back to the top of the loop. ) 


Any number of while decision points may be inserted into an 
indefinite looping structure. 


Forced Execution 


The forced execution words will immediately and unconditionally 
redirect program execution when they are executed. 

The Word leave 


leave is a forced execution word used to immediately leave from 
any definite or indefinite looping structure* When used inside 
of a definite looping structure, leave is responsible for 
removing the loop limit and index from the return stack: 

Note: A "nested 11 program control structure is a control 
structure which contains another program control structure. The 
leave example below uses nested control structures; an 
T if,..then r structure is used inside of a 'do,*.loop 1 structure. 
A control structure may contain any number of nested control 
structures. However* words which leave control structures ( 
leave and while ) will only leave from the current control 
structure to the next outer control structure. 


shortened-loop 
10 0 do 


i * 
i 7 > 
if 

leave 

then 
loop ; 


( - } 

{ We seem to want to run the loop 
{ 10 times* } 

{ Print the current index value. ) 
{ Is the loop index greater than 7 
{ If it is*** ) 

( leave this loop. ) 


? 


) 


shortened-loop 01 2 3^5^78 


leave will always reroute program execution to a point right 
outside of the nearest following until f again * loop t 
or +loop . If leave is used inside a set of nested looping 
structures, it will only leave the current loop. 
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The Word Exit 


exit is a forced execution word which must be used within a colon 
definition. Whenever exit is encountered in a colon definition 
it will immediately terminate execution of that colon definition 
and will redirect program execution back to the word which 
originally called the definition: 


: unfinished ( 

1 . 

2 . 

3 • 

exit 

4 . 

5 . ; 

unfinished 123 


) 

{ Display a 'l 1 , } 

{ Display a T 2 T * } 

{ Display a '3* * ) 

{ Terminate execution 
( The *4* will not be 
{ The '5* will not be 


of this definition. ) 
displayed, } 
displayed. ) 


As soon as the exit in unfinished was reached, execution of 
unfinished was terminated. 


The Words abort and abort" 


abort will cause a Forth system abort. In a Forth system abort 
the return stack and parameter stack are cleared and Forth is 
restarted, abort may be used interactively or within a colon 
definition. 

abort" is a version of abort which accepts a flag and, if the 
flag is true (non-zero), aborts, issues a beep, and displays an 
error message on the "explain" screen ([USE FRONT][EXPLAIN]). 

The error message for abort" immediately follows abort" and is 
terminated with a trailing quote. Note that there must be at 
least one space or tab between abort" and the start of the error 
message, abort" may only be used within a colon definition: 

: testabort { f - ) 

abort" Error Error" ; 

0 testabort ( Nothing should happen. ) 

1 testabort ( The system should beep and the ) 

( error message "Error Error" should } 

( be displayed on the explain screen. ) 
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CHARACTER AND STRING I/O 


Character input 
ascii 

ascii is a character manipulation word which returns the ascii 
value of the single character which follows it: 

ascii s , 115 ( The ASCII code for an ’s’ is decimal 115> } 

115 - 115 ( This is another way to put the ASCII code } 

{ for an f s f on the stack, ) 

Note that f ascii s 1 has the same effect as f 115't both command 
sequences place the decimal ASCII value for f s* on the stack. 

The *115* is a more meaningful result when it is viewed as the 
result of ascii 

ascii can be use to make all single character comparisons in 
your program much more readable: 

115 116 0 ( Comparing the ASCII codes for 's 1 and 1 1 1 ) 

( in an unreadable fashion, ) 

ascii s ascii t s * 0 ( Does the ASCII code for 's' equal the ) 

( ASCII code for f t’ ? The false [0] flag ) 

( returned shows that they are not equal* ) 

?t 

?t is a character input word which checks to see if any 
characters input by the user are available. If the user has 
typed a character, a true {non-zero) flag will be returned* If 
no user input characters are waiting, a false (0) flag will be 
returned. The word keypress below spins in a loop, printing a 
message, until the user presses any key: 

: keypress { - | Displays a message until any key is pressed, } 

begin 

cr 

, n Press any key to terminate." 

?t 

until 

cr *" Done." ; 

keypress 

Press any key to terminate. 

Press any key to terminate. 

Done, 
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The Word key 


While ?t only reports on the presence of user input, key is a 
character input word which waits until the user presses a key and 
then returns the ASCII code for the key pressed* key forces the 
system to wait until the user inputs a character, key will be 
incorporated into the keypress example to obtain a more specific 
response from the user. In the new example, the user must press 
a certain key, an 's', to terminate the message printing loop, 
but can press any other key to print the message out: 

: keypress { - | Displays a message whenever any key except an 

f s f is pressed. When an 's' is pressed, the loop terminates. ) 
begin 

cr ( Print a carriage return followed ) 

{ by the message* ) 

*" Press an to stop or any other key to continue* 11 
key ascii s = { Did the user press the T s f key 7 ) 

until 

cr . M Stop.” ; redefining keypress 
keypress 

Press an r s* to stop or any other key to continue. 

Press an 's 1 to stop or any other key to continue. 

Stop. 

Note that when this new version of keypress was sent to tForth, a 
"redefining keypress” message was issued. 

Character Output 

emit takes a number and outputs the corresponding ASCII 
character. All of the other character output words are built 
using emit * cr uses emit to output a carriage return and a 
linefeed, space uses emit to output a space. The following 
demonstration uses cr twice to produce two carriage returns, 
uses space twice to produce two spaces, and uses emit three 
times to output three asterisks: 

: demo { - ) 

cr cr 
space space 

42 emit 42 emit 42 emit ; 


demo 

•** 

emit is a vectored output routine. When emit executes it checks 
the state of four output device flags. There is a flag for the 
screen (crt), the printer {lp), the editor (edde), and the 
modem/serial port (ser), If a flag is set, it means that the 
corresponding output device is currently enabled. Whenever 
emit is used, it must output the character to all output devices 
which are currently enabled. Since emit is smart enough to 
know how to talk to all of the devices mentioned above, the 
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programmer does not have to worry about the idiosyncracies of 
each device. 

String Creation 

The string manipulation word 11 { 1 quote r ) will construct 

either a temporary or permanent string in memory and will return 
the address and length of the string on the stack; 

* This is a test.” . . 31 4?193Q 

” will place all characters between itself and the trailing 
quote into the string being constructed- Because M is a 
Forth word, it must be surrounded on both sides by at least one 
space or tab. The text to be included in the string should 
immediately follow the n and the space. The text should be 
terminated with a closing quote. The closing double quote is 
used only as a delimiter, so it does not have to be separated 
from the rest of the text. Double quotes may not be used within 
the string text. 

String Output 

type is a string output word which, when passed the address and 
length of a string, will output the string to the screen {and/or 
any other current devices). 

" This is a string.” .s type 746BD 25 This is a string, 

. s was used in the above example, between the string 
construction and type , to show that M does leave the address 
and length of the string on the stack for type . type was then 
used to output the string to the screen. 

String Integers 

string is the string-handling equivalent to integer , In the 
following example the text within the quotes is the string data, 
mystring is the name assigned to the string data, string 
makes mystring an executable word which will put the address 
and length of its associated string data on the stack when 
executed. 

This is how string is used: 

” This is string data," string mystring 
This is how the mystring string may be displayed: 
mystring typeThis is string data. 
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An empty string is created when no characters are included 
between the quotes (when quote-space-quote is used): 

" " string emptystring 

Changing String Data 

The word "to is used to alter string data. The use of "to is 
similar to the use of the integer manipulation word to . "to 
is smart enough to handle changing string sizes. 

" " string stringinteger ( Create an empty string integer. ) 

" abcdefg" stringinteger "to { Store some text in the string } 

( integer. ) 

stringinteger type abcdefg ( Display the contents of the ) 

( string integer. } 


String Input 

The tForth word query takes string input from the editor 
environment and passes the input to tForth, When query is 
executed, it waits until it is passed a string from the editor. 
Any string may be passed from the editor to query by selecting 
the desired string and pressing [ANSWER] while holding the 
[USE FRONT] key down. 

This is the stack notation for query ; 
query {-an) 

query returns on the stack the address r a‘ and length of the 
string passed to it. 

In the example below, query is used to obtain a line of user 
input. The address and length of the user's input, returned by 
query , are passed on to type so that the input will be 
immediately displayed. To use the example below perform the 
following steps: 

o Send the word stringinput to tForth. 

o Enter the text you would like to return to query 
In the example, 2 spaces were typed, followed by 
the words "Hello there/ 1 , followed by 2 more spaces. 
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o Highlight your text and return the text to query with 
the use of [USE FRONT][ANSWER], 

: stringinput ( - ) 

space ( Put a space in front of the response string. ) 

query ( Wait for string input. ) 

type ( Display the input string. ) 

» 

stringinput Hello there. Hello there. 

The first instance of " Hello there. ” above was typed in 
response to query . The second instance of tf Hello there. tf 
was output by stringinput . 
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NUMERIC I/O AND NUMBER FORMATTING 


Numeric input involves the conversion of ASCII strings which 
represent numbers to numbers which may be placed on the parameter 
stack. Numeric output involves the conversion of numbers to 
strings of ASCII characters which may be displayed using the 
string I/O words. There are four categories of numeric I/O 
words: words used to control the numeric conversion base* words 
used to handle numeric input conversion* words used to handle 
formatted numeric output* and words used to handle standard 
numeric output. 

Numeric Conversion Base 


Numbers are always converted with respect to the current numeric 
base. The current number base is controlled by the system 
integer base . The two most commonly used number bases* base 
ten (decimal) and base 16 (hexadecimal), may be chosen with the 
special words decimal and hex : 


( The system was in hexadecimal base when these definitions 
were defined. ) 

: decimal ( - } Oa base to ; 

; hex ( - ) 10 base to ; 

The examples below demonstrate how you may set or change the 

current numeric base: 


decimal ( Set the base to decimal. ) 

10 15 20 { Put some numbers on the stack, ) 


hex 

,s A F 14 


2 base to 

.5 1010 1111 10100 


{ Change the base to hexadecimal. } 

{ Display the hexadecimal equivalents ) 
{ of the numbers, } 

( Change base to base 2* binary. ) 

( Display the binary equivalents ) 

( of the numbers. } 


7 base to 
,s 13 21 26 

decimal 

. . . 20 15 10 


( Non-standard bases are also allowed, ) 

( Display the base 7 equivalents. } 

( Change the base back to decimal ) 

( and remove the numbers from the stack. ) 


Note that both the number input words and the number display 
words are affected by the current base setting. 
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Numeric Input Conversion 


The word number takes the address and length of a string, the 
desired conversion base, and tries to convert the string to a 
number: 

decimal 

" 1234" 10 number , • -1 1234 

" 123X4" 10 number . 0 

In the examples above, " was used to create a temporary string. 
The address and length of the temporary string, and a '10* for 
base 10 were passed to number. The 1 10 f was treated as a decimal 
*10 f since decimal was used above to set the system base to 
decimal. 

In the first use of number the temporary string contained a 
sequence of valid ASCII numerical characters, number was able to 
successfully convert the string to a number and returned two 
values, a true (non-zero) flag and the converted numerical value, 
on the parameter stack. 

In the second use of number the temporary string contained an 
invalid numerical character (the T X'), number was not able to 
convert the string to a number and returned only one result, a 
false (0) flag, on the stack. 

Number Output Conversion and Number Formatting 

The number formatting words are used to convert binary numbers to 
printable strings of ASCII numerals. 128 bytes of a 384-byte 
scratch area called 'the pad 1 {see diagram on the following page) 
are used by the number formatting words to hold the output string 
as it is being constructed. Executing the word pad will cause 
the address of a location 128 bytes into the pad to be placed on 
the parameter stack. An integer named hid is used to hold a 
pointer to the spot in the string where the next character will 
be inserted. 
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Number Formatting 

(decimal) 


■< 


384 bytes 


^—— 128 bytes 






























These are the names and functions of the number formatting words 
to be used in the example: 

<U { n - n ) 

{ 1 less-sharp T ) 

Must always be used at the start of a number 
conversion process. Initializes the hid pointer with 
the address of pad {the number to be converted, 'n' f 
should be on the stack, although <# does not use it): 

; <# ( - ) pad hid to ; 

hold { c - ) 

Lower level word used by # , Decrements the hid 

pointer by one and then takes the ascii value from the 
stack and places it in the next available spot in 
the string: 

: hold ( c - ) 

*1 hid +to { Decrement the hid pointer* ) 

hid c! \ ( Store ASCII value into string* ) 

digit ( nl n2 - nl 1 c ) 

Lower level word used by # , Extracts one digit from 

the number being converted *nl f using the specified base 
f n2' and converts the digit to its corresponding ASCII 
value* Returns the remainder of the number 'nl 1 ' and the 
ASCII value ’c f . 

# { n - n T ) 

( 1 sharp 1 ) 

Uses digit to extract one digit from the number on top of 
the stack (the number being converted) and then uses 
hold to] insert the ASCII code for the digit into string 
being constructed in the pad: 

: # { n - n 1 ) base digit hold ; 

#> { nl - a n2 ) 

(’sharp~greater f } 

Removes the remainder of the number being converted from 
the stack {the number should be zero if it was completely 
converted), and returns the address ’a 1 and length t n2 1 of 
the output string: 

: #> ( nl - a n2 ) 

drop { Drop the remainder, ) 
hid ( Put string start address on stack, ) 
pad ( Put end address of string on stack, ) 

over { Put copy of start address on top, ) 

; { Subtract to get string length, ) 

The simple example below shows how number formatting words could 
be used to convert a 3 _ digit number to a string: 
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234 <#####> space type 234 


The diagram of the pad showed how the example string above 
looked while it was under construction- When the diagram was 
drawn, only 2 of the 3 digits had been added to the string. Note 
that the string is constructed from right to left- The least 
significant digits are inserted into the string first* and the 
most significant digits last- The hid pointer is always 
pointing to the current last character in the string- 


u. 


The word u- t which is used to display unsigned numeric 
values* solves the example task in a more generic manner: 

: u - ( n ) 

<0 #s 0> -pace type ; 

hex 

FFFFFF34 u- FFFFFF34 

u- uses #s , an extended version of the # formatting word* 
to extract all the digits from any size number: 

#s ( n - 0 } 

( f sharp-s 1 } 

Continually extracts digits from the number 
being converted and inserts the ASCII values 
into the string being constructed until the 
number being converted is reduced to zero: 

: #s ( n - 0 ) 

begin 

# ( Get one digit at a time- ) 

dup ( Copy the remaining value- ) 

0= { Is it zero yet ? ) 

until ; ( Go until the number is 0. ) 

Dot {-) 

The word - , which is used to display unsigned or signed 
numerical values, uses the number formatting word sign : 

sign ( n - ) 

If the number on the stack is negative sign 
will insert a minus sign {ASCII value = hex 2D) 
into the string being constructed in the pad: 

: sign ( n - } 

0< ( Is 'n 1 negative ? ) 

if 

2D hold ( If it is, insert a *) 
then ; 


(cont.) 
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( n - 
dup 
abs 
<# 

# s 

swap 

sign 

#> 

space 
type ; 


) 

{ Duplicate number to convert. ) 

{ Take absolute value of copy. ) 

( Start number formatting, ) 

{ Convert all of the digits, ) 

( Put original number on top, ) 

( If negative, insert 1 -' in string. ) 
( End conversion, ) 

{ Display string, } 


hex 

FFFFFF34 , -CC 


Note that , t which is affected by the sign bit on a number, 
displayed the value 1 FFFFFF3^ 1 in a different manner than u. 
did previously. 


Inserting Special Characters Into a Formatted String 

The following example shows how number formatting can be used to 
convert a 6-digit number to a common date format {mm/dd/yy): 


Note: It is customary, but not necessary, to use a at the 
end of string names and string-handling word names* For 
example, dateS is a word which creates and displays formatted 
date strings. 


: date$ ( 
date format 
<# 

# 

# 

ascii 

# 

# 

ascii 

# 

# 

#> 

space 
type ; 


n - | Takes 6-digit number, converts it to mm/dd/yy 

string, and displays string. ) 

( Start the number conversion process * ) 

{ Convert least significant digit of year, } 

{ Convert most significant digit of year, ) 
hold ( Insert a f / f in the string, ) 

( Convert least significant digit of day, ) 

{ Convert most significant digit of day. ) 
hold ( Insert a V* in the string, ) 

{ Convert least significant digit of month, ) 

( Convert most significant digit of month* ) 

( End conversion process. ) 

( Display date string. } 


100961 date$ 10 / 09/61 


The date string is constructed from right to left. Note that the 
phrase 'ascii / hold' was used in place of the equivalent 
phrase ’92 hold 1 for readability. 


Storing Formatted Strings in String Variables 

The following example shows how a value with any number of digits 
can be converted to the United States currency format 
{Sdddd.cc}, A string variable is created for use as a storage 
for the currency string which can be printed out at a later time: 
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Note: Since the pad is used as a scratch area by many tForth 
words, important data, such as formatted strings, should not be 
kept in the pad. 


string currencyS ( Create an empty string variable location, ) 


: makecurrency ( n - | Converts a number to $dddd,cc format 

string and saves string away in string variable. } 


<# 

# 

# 

ascii 
#s 

ascii $ hold 

#> 

currencyS 


( Start number formatting process, ) 

{ Convert least significant ’cents’ digit. ) 
( Convert most significant ’cents’ digit. } 
hold ( Insert decimal point, } 

{ Insert all of the 'dollars’ digits, ) 

( Insert dollar sign, } 

{ End number formatting process, ) 

"to ( Copy string into variable ) 

{ for later use, } 


1257595 makecurrency 
currencyS space type $12575-95 

The string creating word string and the string operating word "to 
were discussed in the section on string I/O. 

.r and u.r 


,r and u,r are formatted versions of the words , and u. 
These words print signed and unsigned values, right justified, in 
a field with a specified width: 


fixedfont 


: signed-aligned 
cr 

123 10 .r 

123456 10 

FFFFFF34 10 

signed-aligned 

123 

123456 

-CC 


unsigned-aligned { 

- 

) 


cr 


( Output a carriage return, ) 

123 

20 u. r 

cr 

t 

Print 123 in 20 char field ) 

123456 

20 u. r 

cr 

( 

followed by carriage return } 

FFFFFF34 

20 u. r 

cr 


; { repeat for 2 other numbers. ) 


unsigned - al igned 

123 

123456 

FFFFFF34 

variablefont { To return to a proportional ) 

( font* if you'd like. ) 


{ For these words to print with proper ) 

{ alignment in the editor, a non-proportional ) 
( or fixed, font must be used, ) 

( - ) 

( Output a carriage return, } 
cr ( Print 123 in 10 char field ) 

,r cr { followed by carriage return, ) 

,r cr ; ( Repeat for 2 other numbers. ) 
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LOCAL VARIABLES 


A major drawback of the Forth parameter stack is that with 
several parameters on the stack, the manipulations required to 
get at a certain parameter become cumbersome and the resulting 
code unreadable. For example, this is a routine which sums the 
numbers between 0 and n where n is an arbitrary limit. In this 
routine, the arbitrary limit is reached when the user hits a key: 


; summation ( n | Spins in a loop, summing the loop count, 

until the user hits a key. Returns the summation on the stack, ) 


0 

0 


( The initial sum is 0. ) 

( The initial loopcount is 0.) 


begin 

1 + 

dup 

rot 


swap 

?t 

until 

drop 


( Start the loop. ) 

( Increment the loop count. ) 

( Copy the loop count. ) 

( Rotate the current sum to the top of ) 

( the stack. } 

( Add the copy of the loop count to the } 
( current sum. } 

( Put the loop count back on top. ) 

( Has the user pressed a key ? ) 

( Go until ?t reports that the ) 

{ user has pressed a key. ) 

{ Drop the loop count but leave the ) 

( summation on the stack. ) 


summation . 4367490 

The inner loop of the above routine, the words between the 
begin and until (two program control structures which will be 
explained later), is very difficult to comprehend at first 
glance. The stack notation indicates that the routine takes no 
inputs and returns one output but it does not provide any 
information regarding the use of the stack within the routine. 
Even though this example has only a maximum of three items on the 
stack, it is very difficult to work through without resorting to 
pencil and paper to keep track of the stack usage. 

A Description of tForth’s Local Variables 

In tForth programmers are allowed to create 1 local variables 1 , 
that is, variables which are valid only during execution of the 
word in which they are defined. The main advantage of local 
variables is that they help produce more readable code by 
eliminating confusing stack manipulations. 

This is how local variables are used in a definition: 
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) 


<name> ( 
local nl 
local n2 


local ni 


The word local is used to create and name a local variable. The 
local variable is not initialized to any value. Any number of 
local variables may be created in a definition. Since the 
variable is a local variable, references to <name>'s local 
variables are only valid within <name> None of the words which 
call <name> and none of the words which <name> calls can 
reference <name> T s local variables. 

The next example shows the summation routine after it has been 
rewritten to take advantage of local variables: 

: summation ( -> n | Spins in a loop, summing the loop count, 

until the user hits a key. Returns the summation on the stack, ) 


local sum 
0 sum to 


( Creating and naming a local variable. ) 
Initializing sum with a zero, ) 


begin 

1 

?t 

until 

sum 


sum +lo ( Increment the contents of sum by one, ) 

( Go until keypress, } 

( Leave the result on the stack. } 


The use of a local variable makes this version of summation 
much easier to read and understand. 

Local Variable Operators 

The two integer operators to and +to are used to change and add 
to the contents of local variables. The use of these two 
operators is demonstrated in the example above. 
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THE tFORTH TECHNICAL REFERENCE MANUAL 


INTRODUCTION 

The tFORTH Technical Reference Manual contains 
implementation-specific information about the tFORTH FORTH 
implementation. The following topics are covered: 

* SYSTEM MEMORY USAGE 

Includes a ROM/RAM memory map of the entire system 
and a close-up memory map of the tFORTH RAM 
execution area. 

* DICTIONARY STRUCTURE 

Detailed memory maps showing the layout of the tFORTH 
dictionary header and dictionary code areas. 

* VOCABULARY STRUCTURE 

The search order and the active array, open and closed 
vocabularies, ereating/removing vocabularies and the 
extant array. 

* "RUNNING" tFORTH 

How interpret works. 

* COMPILATION 

Structure of a dictionary header and code entry. 

Token threading versus address threading. 

* EXECUTION OF TOKEN THREADED CODE 

Names of the various pointers and register usage. 
Nested execution levels. 

* IMPLEMENTATION OF INTEGERS 

The 'iv* pointer and integer tables. 

System integers. 

* IMPLEMENTATION OF LOCAL VARIABLES 

How local variables are compiled and executed. 

* IMPLEMENTATION OF PROGRAM CONTROL STRUCTURES 
How program control structures are compiled and 
how they are interactively executed. 
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SYSTEM MEMORY USAGE 


The System Memory Map on the following page gives a general 
overview of the memory layout of the W777 1 system, including 
ROM/RAM memory specifications. A second memory map, shown a 
couple of pages later, contains a close-up memory map of the 
tFORTH RAM area and lists the tFORTH words commonly used to 
traverse memory, 

ROM 

128K of ROM is located starting at address $00000. The lowest IK 
bytes in the ROM are used to hold the system reset exception 
vector and the rest of the 68000 exception vector table 
(exception handling and interrupt handling routines are discussed 
later}. The ROM’ed tFORTH and f V777’ editor code fill up the 
rest of the low memory ROM space. 

RAM 

The ’V777 1 system has 256K to 512K bytes of RAM located starting 
at address $400000. tFORTH uses half of the RAM area (128K 
bytes) for its alterable vocabularies and other dynamic data 
areas. The remaining 128K bytes of RAM are used by the editor. 
The boundary between these two areas is alterable. 
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System Memory Map 

Addresses in hexadecimal 



440000 Last RAM location 


420000-43FFFF Editor RAM 


4108AQ-41 FFFF 1FORTH'dictionary 

40EC00-41 089F Token table 
40A23Q-4QEBFF Variable area 

400000-40A27F Display memory 


1 00000-1 5FFFF Spelling Checker ROM 


040000-043FFF User Dictionary RAM 

000400-01 FFFF 1FORTH 1 editor code 
000000-0003FF 68000 Exception Vector Table 

























The tForth RAM Memory Map 


The following page contains a close-up view of the tFORTH RAM 
area- 

Display Memory 

The first 28K bytes of the tFORTH RAM area is used for display 
memory* The V777 screen has 6?2 pixels horizontally and 3^^ 
pixels vertically* ramstart will return the address of the 

start of the screen display memory when executed* The first byte 
in the display memory area corresponds to the 8 pixels on the far 
left of the top line on the screen* 

Variable Memory 

Following the display memory is the ^~5K area used for array 
variables and for the return and parameter stacks* spQ will 
return the address of the base of the parameter stack when 
executed* sp@ returns the address of the top of the parameter 
stack when executed. 

Token Table 


The address of the start of the 2K byte token table is obtained 
by asking for the address of the first token in the table: 

hex 

0 + table * *IOECOO 

The token table contains an ordered list of the addresses of most 
of the words in the system* The layout and use of the token 
table are explained in the section covering the tFORTH compiler* 

The rest of tPORTH’s RAM allotment is used by the dictionary* 
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tForth memory Map (RAM) 


Addresses In hexadecimal 




top- 


appiic 


’t FORTH’ 
dictionary 


here 


origin. 


0 


♦table 



ramstart 



ARITHMETICS vosafrlhaadart 
ARITHMETIC vocabl^O^ 


USER vocabulary headers 


Available dictionary space 
( appiic here « ) 


USER vocabulary code 


41FFFF 


410BAA-41 FFFF 


4 0 ECO0-41 089 F 


40 A2 60-40 EBFF 


400000-40 A27F 


Last 1FORTH' bcalion 


IFORTH* dictionary 


Token table 


Return stack 
Subroutine slack 


Variable area 


Display memory 









































Dictionary 


origin will return the address of the start of the tForth 
dictionary space when executed* top returns the address of the 
first byte BEYOND the end of the tForth dictionary space* 

Initially, the tForth dictionary contains three vocabularies of 
words * The approximate locations of the header and code areas 
{explained later) for each of the three vocabularies are shown in 
the diagram. The tForth word here is used to return the address 
of the next available byte location in the code area of the 
current ’open’ vocabulary, applic will return the address of the 
next available byte in the header area of the current ’open 1 
vocabulary (+1). The following calculation is used to determine 
the amount of remaining tForth dictionary space: 

hex 

applic here - , 186 C 9 ok 
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THE tFORTH DICTIONARY STRUCTURE 


As the previous memory map illustrates* the tForth dictionary 
space contains two types of data areas: the deader 1 area and 
the 'code 1 area. The header area is where the header portions of 
all words in a vocabulary are stored* The code area is where the 
code portion of all words in a vocabulary is stored. Each 
vocabulary is given its own header and code area. 

The Dictionary Header Area 

The diagram on the following page contains a close-up view of an 
dictionary header area. The first four bytes in a dictionary 
header area contain a 32 -bit value which indicates how many bytes 
of individual header entries this header area currently contains. 

The first header entry in every vocabulary belongs to an 
invisible word used to mark the start of the individual 
dictionary header entries* This ^tub 1 word is 1 character in 
length with a name of 1 null 1 , The ASCII code for the null 
character is 00* The entry for the stub word is not a complete 
dictionary header, it contains only the length byte and the 
single character in the name. 

The last header entry in every vocabulary belongs to another 
invisible word named 'del 1 (ASCII code * hexadecimal JF), 'del 1 
is used to mark the end of the dictionary header entries. The 
’del’ entry is a complete header entry* The encoded token value 
used in the 'del 1 header entry is the highest possible encoded 
token entry* 
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. encoded token value 

length byte 

char 

char 

' ' V. * 

char 


* 


(up to 32 characters) 

* 

* 


char 


| ◄- 2 bytes -► 


Structure of a Dictionary Header 












Adding Entries to the Header Area 


The dictionary header area grows downward in memory. Any new 
entries added to this vocabulary area will be placed between the 
'mil' and 'del T header entries (the 'del 1 header entry is moved 
to a lower memory location to accommodate the new entry}, 

Structure of an Individual Dictionary Header Entry 

The structure of a tForth dictionary header entry is shown in the 
diagram on the following page. The first two bytes in the header 
entry contain an encoded version of the token value assigned to 
the word. The third byte in the header structure is a length 
byte. The bytes following the length byte contain the ASCII 
codes for the characters which make up the word T s name. 
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Header entry 
which marks the 
end of the 
dictionary header 
entries for this 
vocabulary. 



Length byte with high bit set 
{length = 1). 


Higher Memory 


Character in name 
{name is 'del'). 


Highest possible encoded 
token value. 


(header structures for words in this vocabulary) 


Partial header entry 
which marks the 
start of the header 
structures. 


Number of bytes 
in the Header Area 
(4 byte value). 



* -2 bytes -► 


Close-Up of the Dictionary Header Area 























The diagram on the following page gives a close-up view of the 
length byte in a header entry. Bit 7 is used during dictionary 
searches, bit 6 is used to mark IMMEDIATE words, and bit 5 is 
reserved for future use. Bits 4 through 0 are used to record the 
length of the word's name. Since only 5 hits in the length byte 
are available for recording the length of a word's name, only the 
first 32 characters in a word's name are significant. 
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: 


lll§|| 







5 

4 

_ _ 

3 

2 

illll 

; 1 

0 


Bits used to record 
name length 


Reserved 
IMMEDIATE Bit 


Dictionary Search Bit 
(always set) 


Structure of the Length Byte 















The Dictionary Code Area 


The following diagram shows a close-up of the dictionary code 
area* 10 bytes of data are located at the start of every tForth 
code area* The first two bytes contain an 68000 assembly 
language 1 JMP (A3) 1 instruction- The next byte is the actual 
token for the VOCAB defining word* The byte is a flag which 
indicates whether the code space contains an odd or even number 
of bytes of code* The next two bytes contain the tier and token 
information for the vocabulary to which this code area belongs* 
The final four bytes of this 10 byte data structure are used to 
hold a 32 -bit value which indicates how many bytes of code this 
code area currently contains * 

Adding Code to the Code Area 

As new definitions are added to the system, the code portions of 
the new words which belong to this vocabulary will be placed in 
successive memory locations in the code area* The code area size 
field will be incremented accordingly as code is added. The code 
area grows toward higher memory locations. The odd size flag 
will be set whenever the vocabulary is closed if the vocabulary 
contains an odd number of code bytes. The words which reopen a 
vocabulary will check a vocabulary's odd size flag whenever the 
vocabulary is opened* 


- 67 - 



Higher Memory 



Number of bytes of code 
in this vocabulary's code area 
(4 byte value) 


Tier token 
for this vocabulary 


Token for 
this vocabulary. 


VOCAB token 


Odd Size Flag 


JMP (A3) 


Lower Memory 


- 2 bytes ► 


Close-Up of the Dictionary Code Area 











VOCABULARIES 


The words in a FORTH dictionary are usually subdivided into 
several smaller groups of words called 'vocabularies 1 * The 500 
or so words in the tForth dictionary are located in four 
different vocabularies: 

forth vocabulary Contains all of the 'standard 1 FORTH 

FORTH words supported by tForth 
and all tForth FORTH extension words* 
These words are located in ROM and 
may not be altered (the token table 
may be 'patched' to point to a new RAM 
definition of a ROM word if necessary) 

user vocabulary The user vocabulary is used to hold 

the user's definitions* 


arithmetic Contains the code which corresponds to 

vocabulary the user's calculations in the text. 


function vocabulary Contains the code which corresponds to 

the functions to be used in calculations 
in the text. 


There is also an invisible vocabulary which is used to hide all 
of the editor words. 


Vocabularies help arrange the words in the dictionary into 
smaller groups of related words* During compilation, the 
programmer can help the compiler by specifying in which of the 
vocabulary subsets of words the next word, or group of words to 
be compiled, is located* This can speed up the compilation 
process since the compiler performs less time searching the 
dictionary. How to specify a 'vocabulary search order' is 
discussed next* 

The Vocabulary Search Order 

The vocabulary search order determines which of the available 
vocabularies in the system are searched whenever the compiler or 
interpreter need to find a word. A list of the vocabularies 
contained in the current search order is kept in an array named 
* active 1 * 

The Word active 


active is a tForth word which returns the address of the start of 
the active array when executed* The active array is 32 bytes in 
length* The first entry in the active array contains the token 
corresponding to the vocabulary which is first in the search 
order. The second entry in the active array contains the token 
corresponding to the second vocabulary in the search order, and 
so on. Up to 16 vocabularies may be included in the search order 
list at one time* The active array is traversed by find until 
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either 16 vocabularies are searched or until a word-length 
(l6-bit) value {hexadecimal FFFF) is encountered* 

Specifying the Search Order 

A vocabulary may be placed first in the search order by executing 
its name* If the vocabulary was already included in the search 
order, its token will be moved from its current position in the 
active array to the first spot in the array and the rest of the 
array will be adjusted to close the gap. If the vocabulary is 
new to the search order its token will be inserted at the start 
of the array. 

Adding New Words to a Vocabulary 

New definitions may only be added to the vocabulary which is 
currently 'open*, In the tForth RAM Memory Map diagram the 
user vocabulary is the current open vocabulary. When a 
vocabulary is ’open 1 there is a memory gap between the top of the 
vocabulary's code area and the bottom of the vocabulary’s header 
area* When new definitions are added to the open vocabulary, the 
memory required for the new definition's code and header is taken 
from the ’open’ pool of memory. 

The Word addto 

The tForth word addto is used to open a vocabulary: 
add to <naine> 

Only one vocabulary may be open at once, addto will close the 
current open vocabulary before it opens the vocabulary specified 
by <name>. 

The diagram on the following page shows how the vocabulary 
closing and opening process works. A vocabulary is closed by 
closing the gap between the vocabulary’s header and code areas in 
memory. A vocabulary is opened by creating a gap between its 
code and header areas. 

Creating New Vocabularies 

The Forth-83 defining word VOCABULARY is used to add new 
vocabularies to the system. The following actions are used to 
add a new vocabulary: 

1, The new vocabulary’s header and code are placed in the 
header and code areas of the currently open vocabulary 
(the new vocabulary’s parent vocabulary), 

2, The contents of memory between ’applic 1 and T top-1’ are 
shifted downwards by 20 bytes to make room for the 10 
bytes of data stored at the start of every dictionary 
header area and for the 10 bytes of data stored at the 
start of every dictionary code area. (cont.) 
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Opening and Closing Vocabularies 


top 



ftRtTHMETIC twitters 


^ARITHMETIC iteid* 


applic 


here 


origin 


USER headers 




Available 
dictionary space 
{ applic here * ) 


—■— 

user coda 


top 


applic 



AmHtmmmzdBri 


here 


origin 


Available 
dictionary space 
( applic here - ) 


1 •!•.T>!;V: ‘!-'--!-!‘!-! J '* ! ?•: ! ! ! ! f ! ! !-!‘'-! L! 

erlthmetto code 


i 


user headers 




• 


user cods 




v.:-' 


top 

applic 


here 


Available 
dictionary space 
( applic here - } 



origin 


user headers 


user code 


addto user M 


addto arithmetic 


addto function " 


user vocabulary is open. 


arithmetic vocabulary is open. 


function vocabulary is open. 






































3- Finally, the new vocabulary's token and its parent token 
are stored in the extant array. 

The Extant Array 

Each vocabulary in the dictionary has its token and the token of 
its parent vocabulary in an array called 'extant'. Each entry in 
the extant array is 4 bytes in length and consists of a 2-byte 
token for a vocabulary followed by a 2-byte token for the 
vocabulary's parent vocabulary. The extant array is 64 bytes 
long and therefore has enough room for 16 child-parent vocabulary 
pairs. Execution of the word extant will return the address of 
the extant array. 

The extant array is used by tForth words which must remove 
vocabularies from the system. 
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RUNNING tFORTH 


The first part of the tForth technical manual dealt with the data 
structures and memory usage and layout of the tForth system. 

This part of the technical manual will cover the dynamic 
functioning of the tForth system* 

The Word quit 

The main word which l runs t FORTH is quit , These are the basic 
actions performed by quit : 

: quit { - } 

begin 

{ clear the return stack ) 

{ get a block of user input text ) 

{ interpret the user input text ) 

," ok" cr 

again ; 

Clearing the return stack is simply a matter of returning the 
return stack pointer to its base position, query t which was 
discussed previously in the string I/O section, is used to get a 
line of input text from the user. The most important word used 
by quit is interpret , interpret is responsible for parsing the 
input stream. 

The tForth definition for Interpret is shown on the following 
page* Interpret is passed the address and length of the input 
text on the parameter stack. In the first two lines of interpret 
the end address of the input text is stored in the system integer 
limit and the start address of the input text is stored in the 
system integer in . The in integer is used to mark Interpret's 
progress through the input text string. 

These are the actions which occur in the main 
'begin,..while*..again' loop in interpret : 

1. word is used to extract the next word (sequence of 

characters delimited by spaces or tabs) from the input text* 
word will leave the address of the extracted word in the 
system integer str f the length of the extracted word in len t 
reposition the In integer to point to the next character to 
be examined in the input text. 
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interpret ( a 1 

over + limit 
in to 
begin 

word 

len 

while 

locals 

if 

else 

then 


) 

o 

( begin the interpretation loop ) 

( grab a word from the input text ) 

( while the length is nonzero ) 

( is this word a local variable? ) 

( IF it is, perform special local variable } 
doloc ( actions, described later } 


if ( if the word is not a local variable, ) 

( try to find it in the dictionary } 
str len find 
?dup 

if { if the word was found in the dictionary, ) 

G< state nesting or and 
if { and if the system is in the } 

( compiling state, compile the word ) 
compile, 

else { otherwise, execute the word } 
sw execute sw 
then 

else 

( if the word was not found in the ) 

( dictionary, try to convert it to a number ) 
str len base number 
if { if it is a number.,* ) 
state nesting or 
if 

( and compiling state is on ) 

( compile # as a literal ) 

[compile] literal 
else 

( leave # on param stack } 
then 

else { if its not a check for targeting ) 
targeting 
if 

( if targeting is occurring.** ) 
forward 
else 

( leave the loop and abort ) 
leave 
then 

then 

then 

then 

?stackerr { check the parameter stack state ) 

again 

len abort” can't use” ; { can't use this word ) 
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2 , 


If word is able to extract a word from the input text* it 
will drop into the while section of the 

begin../while. ,.again loop. The first test performed in the 
while section is a test to see if the extracted word is a 
local variable. If the word is a local variable, local 
variable type actions occur (described later) and a false (0) 
flag is left on the parameter stack. If the word is not a 
local variable, a true (nonzero) flag is left on the stack. 

3* If the word was not a local variable, interpret checks next 
to see if the word can be found in the dictionary using the 
current search order, find is used to locate words, 
specified by the address and length of their name strings, in 
the dictionary. If find finds a word it returns the token 
for the word and a true (nonzero) flag on top of the 
parameter stack. If the word found is an 'immediate 1 word 
the flag returned will be a 1 1 r . Otherwise, the flag 
returned will be a T -l r . If find cannot located a word, it 
returns a false (0) flag. 

4. If the word was found in the dictionary, interpret must next 
decide whether the word should be compiled or executed. Two 
tests must be true in order for the word to be compiled. 
First, the word found must not be an immediate word. Second, 
one or both of the two system integers state or nesting must 
contain a nonzero value. If the state system integer 
contains a nonzero value it means the system is in the 
compilation state. If the nesting system integer contains a 
nonzero value it means the system is currently compiling the 
temporary code required for interactive execution of program 
control structures (discussed later). So, if the word found 
is not immediate AND if the system is either compiling real 
definitions OR compiling temporary code for interactive 
execution of program control structures, the token for word 
will be compiled, 

5 . If the conditions for compilation are not met, execute will 
be used to execute the word corresponding to the token. 

6. If the extracted word was not found in the dictionary, 
interpret will next try to convert the string to a number. 

If the string can be converted to a number, and the system is 
either in the compiling state OR compiling temporary code, 
the number will be compiled into the current definition as a 
literal. 

7. If the string was converted to a number and the system is not 
compiling, the number will be left on the parameter stack. 

8. If the extracted word was not a word in the dictionary and 
could not be converted to a number interpret will check to 
see if the system is currently in the target compiling state 
by checking the contents of the targeting system integer for 
a nonzero value. If target compilation is occurring (target 
compilation will be discussed in a separate document), the 
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extracted word will be compiled into the target system image 
under construction. Otherwise, leave will be used to exit 
the loop, interpret will abort , and an error message will be 
issued. 

Now that the general actions of a running tForth system have been 
described, individual aspects may be discussed in detail. The 
following aspects of the tForth system will be covered in the 
final sections of this technical reference manual: 

* The Basics of tForth Compilation 

* Execution of Token-Threaded Code 

* The Implementation of tForth 1 s Integers 

* The Implementation of tForth 1 s Local Variables 

* The Implementation of tForth 1 s Program Control Structures 
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THE BASICS OF tFQRTH COMPILATION 


Structure of a Dictionary Entry 

In the "Under the Hood 1 ’ chapter of Leo Brodie's book Starting 
Forth , the structure of a dictionary entry in an address-threaded 
FORTH implementation is described* Since the original 
implementation of FORTH, and most FORTH implementations for many 
years after, were address-threaded implementations, the 
address-threaded model of FORTH is generally considered to be the 
’standard 1 . In recent years, FORTH implementors have devised 
many different threading schemes. The token-threading scheme 
used in tForth is one of the most popular of the new FORTH 
threading schemes due to its conservative use of memory. In this 
section, tForth*s token threading scheme will be explained by 
comparing it with the ’standard 1 address threading scheme as 
described in Starting Forth , 

The diagrams on the following page show the dictionary entries 
which would be created for the definition below in a 32 -bit 
address-threaded implementation and in the 32-bit tForth 
token-threaded implementation: 

: newword ( n - } 

3 * dup + , ; 

Certain areas in the diagrams have been given the following 
labels since, according to Starting Forth , all Forth definitions 
share these common parts: 


DEFINITION 
HEADER FIELDS 


DEFINITION 
CODE FIELDS 


name field 
link field 


code pointer field 
parameter field 


The ’definition header fields 1 are used to find definitions in 
the dictionary (in order to execute or compile the definition), 
The ’definition code fields 1 are used when a definition is 
executed. In the tForth implementation the definition header 
fields and the definition code fields are stored in different 
memory areas. The token field and the token table, which will be 
described in more detail later, are used to link a definition’s 
header and code fields together. 


The 'code pointer' field is used to specify where the ’code 1 for 
the definition is located. The parameter field contains either 
data, addresses (in an address threaded implementation), tokens 
{in a token threaded implementation), or machine code 
instructions * 
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Dictionary Entries: Address Threaded versus Token 

: newword ( - ) 3 * dup + . ; 


Address Threaded 

Definition 

Header 

Fields: 


Definition 

Code 

Fields: 



Token Threaded 

d 

kr 

ir 

tionary search bit 

nmediatebit 

reserved 

Definition lower 

Header memory 




Fields: 



7 

n 


6 

w 

hinher 

W 

o 

I a iy L t J 

memory 

r 

d 


Definition 

tower 

JMP (np) 

Code 

memory 

Wit token I 03 

Fields: 


* token i dup token 


higher 

memory 

+ token [ tierl token 


. token *<exit> token 


2 bytes 


Threaded 

name field 

link field 
code field 

parameter field 


token field 

name field 

code field 
parameter field 












































In an address threaded implementation, the dictionary is 
organized into groups of linked lists (one for each vocabulary), 

The 'link 1 field for each word in the dictionary points to (holds 
the address of) the previous dictionary entry in a particular 
vocabulary list. 

In the tForth implementation, the link field has been eliminated 
because the words in each vocabulary are arranged alphabetically. 

Examining the Definition Header and Code Areas 

The tForth compilation word n 1 ('n-tick') can be used to find the 
address of the definition header for a word: 

n * newword 10 dump 

5FFBA 07 2C 87 6E 65 77 77 6F 72 64 7F 7F 81 7F 4E D3 ...newword_N. 

The two leftmost bytes are the encoded token value for newword, 

The next byte is the length byte for newword's name. The length 
byte shows that there are 7 characters in ’newword'. The length 
byte looks like T 87‘ because the most significant bit is set for 
dictionary searches (described later). The next seven bytes 
contains the ASCII codes for the characters in the word newword, 
n f can only be used on words in the current open vocabulary. 

The tForth compilation word c 1 ('c-tick'} can be used to find the 
address of the code for a definition: 

c' newword 10 dump 

478EC 4E D3 0A 03 77 2D 54 01 0C 10 00 00 00 1A 8l 00 N.,.w-t .* 

The contents of the code field for newword are located in the two 
leftmost bytes in the display. The parameter field contents 
occupy bytes 3 through 10 in the display. 

Tokens and the Token Table 

A token is a one byte number whose value can be any number 
between 0 and 255 decimal. Each word in tForth is represented by 
either 1 or 2 tokens. The token field in a tForth definition 
header contains an encoded version of the definition's token 
value. To find the code which corresponds to a particular 
definition header, the encoded token value is decoded to its 
corresponding token value and then multiplied by four (since each 
entry in the table is 4 bytes long) and used as an offset into 
the 'token table' (see the diagram on the following page). The 
token table is a table which contains the 32 bit code addresses 
for all definitions known to tForth. 
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Token Table 


Tiers: 


o 


♦table—► 



tierO 


tier 1 


1024 bytes per tier, 
room for 256, 4 byte 
token table entries per tier 


unused token 
table entries 


Close up of the start of tier 0: 


' 0 stable * 

* 1 -t-tabie ’ 

* 2 +table 1 
■ 3 stable ' 

* 4 stable * 

* 5 4-table ' 

* 6 4-table * 

* 7 4-table * 

* 8 4-table * 
' 9 4-table * 
' A 4-table ’ 


token 00 
token 01 
token 02 
token 03 
token 04 
token 05 
token 06 
token 07 
token 08 
token 09 
token 0A 


entry 

entry 

enfy 

ent7 

entry 

entry 

entry 

entry 

entry 

entry 

entry 


code address for forth' 


code address for fieri' 


code address tor 'tier2‘ 


code address for 'tier3‘ 


code address for 'tier4' 


code address for fierS' 


code address for 'tiers’ 


code address for fier7' 


code address for fier8' 


code address lor'tiers 


code address for 'blit' 


























Useful Token-Related Words 


The words * ('tick 1 ) and ['] ( T bracket-tick-bracket 1 ) can be used 
to find the token value for a word. ? is used outside of colon 
definitions and [*] is used within colon definitions. The word 
name will take a token value and display the name of the 
corresponding FORTH word. The word encode encodes a token value 
(for placement into the token field of a word's header) and the 
word decode decodes an encoded token value (so the decoded token 
can be used as an index into the token table). The word stable 
takes a decoded token value and returns the address of the 
location in the token table where the corresponding code address 
is stored. 


' newword . 3AC 
3AC name newword 

3AC encode . 120 

720 decode , 3AC 
3AC +table * 46EBO 

46EB0 @ . 478 EC 

c 1 newword . 478EC 


( get newword's token value ) 

{ find which FORTH word belongs to ) 

( the token 3^0 ) 

( encode the token value ) 

{ decode the token value ) 

( get the address of newword 1 s entry in ) 
( the token table ) 

( fetch the contents of newword 1 s entry ) 
( in the token table: the address where ) 
( the code for newword is located. } 

( compare the address returned by c 1 ) 

( with the address returned above, they ) 
( are the same ) 


Note that the encoded value of newword’s token is the same value 
stored in newword’s token field (shown above in the n r example). 
Also note that the code address returned by c’ is the same as the 
code address stored in newword's token table entry. (Note, try 
using name to determine which FORTH words belong to the tokens in 
the parameter field area of the code portion of newword. See the 
c f example above.) 


Tiers 


Since a byte size token can only assume 256 distinct values, the 
use of single tokens only would limit the system to a maximum of 
256 words. To overcome this ~ mitation, the 'tiered 1 arrangement 
shown on the diagram was introduced. Each of the 10 tiers can 
hold 256 code addresses. This means the system can potentially 
accomodate 256*10=2560 words, although currently there are only 
about 1000 words. To locate a code address stored in tiers other 
than the base tier (tierO) requires the specification of the tier 
level and the token value. 

Example: Anatomy of newword 
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Let's examine the tokens compiled into the newword definition: 


c 1 newword 10 dump 



4 7 sec 

4E D3 0 A 03 77 2 d 54 01 0C 

10 

00 00 00 1A 81 00 N...w-t... 

4ed3 

Contents of code field. 

to 

be discussed later. 

OA 

Token for blit 



03 

Literal data used by blit 


77 

Token for * 



2D 

Token for dup 



5*J 

Token for + 



01 

Tier token 1, indicates 

that the following token value 


is located in tier 1 in 

the token table 

OC 

Token for , , located 

in 

tier 1 

10 

Token for <exit> 




References to all words except for * were compiled as single-byte 
tokens. Words compiled as single byte tokens are located in 
tierO in the token table. The word , is located in tierl in the 
token table. Words located in tiers other than tierO will be 
compiled as 2 byte token combinations. Token values 01 , 02 , 03 
, 04 f 05 , 06 , 07 , 08 , and 09 are all 'tier tokens’ which 
correspond to tierl p tier2 , tier3 , tier4 , tier5 * tier6 , 
tier? * tier8 , and tier9 in the token table. 

Compilation Size Considerations 

The compiled code for newword required 10 bytes of code space and 
28 bytes (7 tokens * 4 bytes per token table entry) of token 
table space. This means the token threaded version of newword 
requires a total of 38 bytes of memory. 

In an address threaded version of newword each of the 5 words 
referenced by newword would cause a 32 bit, or 4 byte, address to 
be compiled. This means the compiled code for an address 
threaded version of newword could require up to 24 bytes of code 
space (including the space required for the literal data), 

If 5 words very similar to newword were to be compiled in the 
tForth token threaded system the memory requirements would be 50 
bytes of code space ( 10 * 5 = 50 ) and still only 28 bytes of token 
table space for a total of 78 bytes of memory. 

The same 5 words compiled in an address threaded system would 
require 120 bytes of code space (24*5=120) because in each 
definition the complete 4 byte addresses for each referenced word 
would have to be compiled. 
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Overall, tForth f s token threaded approach saves code space 
because the memory intensive data, the 4 byte code addresses For 
each word in the dictionary, are only located in one spot in 
memory - in the token table* Each compiled reference to a word 
only generates a one or two byte token in the code space. In an 
address threaded version the 4 byte code address for a word is 
repeated each time a reference to the word is compiled * 

The Compilation Process 

To study the compilation process, we will reconstruct the tForth 
and interpreter's and compiler's actions during compilation of 
newword . Here, once again, is the definition of newword : 

: newword { n - ) 3 * dup + * * 

For the sake of simplicity, assume the line containing the 
definition of nev^^ord has just been sent to tForth. The FORTH 
interpreter will start "walking" through the input line, 
separating out words (sequences of characters delimited by spaces 
or tabs) and executing them. The first word encountered by the 
interpreter will be the word : , This is what happens when : is 
executed: 

: 1, Calls create . create aligns the here pointer {which 

points to the location in the code space where the code 
for newword will be placed) on an even word boundary. 

Next, create uses word to get the next word from the input 
stream, which will be the name to be assigned to the new 
definition ("newword", in this case). Finally, create 
assigns a token to the new definition and creates a new 
dictionary header* 

2. Calls ] , ] saves the current contents of the nesting 

and state system integers and places zeros in both 
integers. The purpose of the nesting system variable will 
be discussed later in the technical discussion on program 
control structures, state is the system integer used to 
record the current 'state 1 of the system. If state holds 
a 'O', the system is in the compiling state. If state 
holds a T l f , the system is in the interpreting state. The 
net effect of 3 is to place the system in the compiling 
state. 

3- The final important action of : is to lay the first two 
bytes of code into the code area for newword , These two 
bytes contain the opcode for the assembly language 
instruction 'JMP (np) T (4ED3) or, in human language, 
"execute the nest code definition' 1 . All definitions 
created by the defining word : begin with a 'JMP (np) 1 
instruction. 
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At this point, execution of : terminates and control returns to 
the interpreter. The interpreter grabs the words 3 * * * dup * + 
, and , from the input line. Since the system is now in the 
compiling state, due to the actions of ] , the the tokens for 
these words are compiled rather than executed. The final word on 
the input stream is ; . If the definition just compiled contains 
local variables, i will compile the token for <*lp> into the 
definition. Otherwise, ; will compile the token for <;>. The 
implementation of local variables will be discussed In the 
technical discussion on local variables. At this point the 
interpreter has reached the end of the input line and newword has 
been compiled* 
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EXECUTION OF TOKEN-THREADED CODE 


How is a tForth word executed? Explanation of the tForth 
execution process requires that the tForth 68000 register usage 
is discussed and that some terminology is established, 

tForth Register Usage 

tForth uses 10 out of the 16 available 68000 registers to hold 
addresses it requires as it operates* 


REGISTER 

SYMBOL 

USAGE 

D7 

bp 

Holds the address of the base of the 
token table, "base pointer" 

D6 

iv 

Holds the address where the value of 
the current integer is stored, 

"integer value" 

D5 

sa 

Holds the address of the start of the 
definition currently being executed* 
"start address" 

D4 

ct 

Holds the address of the token table 
entry for the definition currently 
being executed, "current token" 

A7 

sp 

Parameter stack pointer. 

a6 

rp 

Return stack pointer. 

A5 

ip 

Holds the address of the next token to 
be executed in the current definition* 
"interpretation pointer" 


nx 

Holds the address of the code for next 
"next pointer" 

A3 

np 

Holds the address of the code for nest 
"nest pointer" 

A2 

vp 

Holds the address of the run-time code 


for integer . 

The FORTH instructions generated by the tForth compiler are not 
executable 68000 instructions. The tForth compiler creates a 
virtual processor, with its own instruction set, which runs on 
top of the 68000 microprocessor. Since all 68000 instructions 
are at least 2 bytes in length and the tForth tokens are at most 
two bytes in length {the most popular tForth words are 1 byte 
tokens}, the instruction set for this virtual processor allows 
tForth to produce more compact code than it would if it always 
used the 68000 instruction set. Only the lowest level tForth 
words, the code definitions, consist of actual 68000 machine code 
instructions* 

The Word execute 


The word execute is used by interpret to execute FORTH words, 
execute executes the word corresponding to the token passed to 
it. To demonstrate how tForth words are executed, the steps 
taken by execute as it executes the word newword will be examined 
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newword { n 
3 * dup + 

2 newword C 


{ here is the definition of newword ) 
( once again ) 

{ test newword out ) 


' newword „ 3^C 

2 

3AC execute C 


( get the token for newword ) 

( newword expects to be passed a ) 

{ number on the stack when it executes ) 
{ use execute to execute newword ) 


The code area for the newword definition is shown on the 
following page* The locations of some of the pointers mentioned 
above are shown in the positions they would hold just before the 
word newword is executed* 
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Token Threaded Execution 


Before execute : 


bp 



( code area for newword ) 

4ED3 |0a703 


77 


2 D | 5 41 01 fo~C 


1 0 


t 


{ ’jmp (np)’ instruction ) 


After execute : 


ct -► a 0- 


newword entry 


Token 

Table 


bp 


4ED3 0A 03 77 2D| 


o 

o 

O 

Li° 


♦ 

a 1 

sa 


Before . : 


ct 


newword entry 

Token 
Table 


bp 


4ED3 PA) 0 3 | 77 | 2 d|~ 54| pT|0 CjTo 


♦ 

sa 


f 

ip 


< 


delta ip 


































Here is the code definition for execute : 


code execute { n - ) 

sp }+ dO move, 

( code which checks to see if the token on the stack ) 

( belongs to a system integer goes here ) 

if, 

{ special system integer ) 

{ handling code, which will ) 

{ be explained in the next ) 

{ section, goes here. ) 

{ 1 1 

( 2 ) 

( 3 ) 

( 4 ) 

( 5 ) 

{ 6 ) 


( 7 ) 


executed belongs to a system integer. Execution of system 
integers will be discussed later. The second half of execute 
contains the code responsible for the execution of tForth words. 
Since newword is not a system integer, the code in the second 
half of execute will be used. 

In the line marked line (1) above, the lowest order byte of the 
base pointer, which points to the start of the token table in 
RAM, is cleared. During tForth execution, the lowest byte in the 
base pointer is altered (as will be shown later). Clearing the 
lowest byte of the base pointer actually puts the base pointer 
back in its correct position. 

In line {2}, a copy of the corrected base pointer is placed in 
the AO register. 

In line (3)> the word length decoded token value is added to the 
base pointer address. 

In lines (4) and (5) the decoded token value {$3AC for newword ) 
is added twice to the lower word of the copy of the base 
pointer. This has the net effect of multiplying the token value 
by 4 (4 bytes per token table entry) and adding the result to the 


then ( 


bp ,b clr, 

bp aO move, 

dO aO ,w add, 
aO aO . w add, 
aO aO . w add, 


aO ) al move. 


al } jmp, 


( clear the lowest byte of the } 

( base pointer ) 

( move a copy of the base pointer ) 

( to the AO register } 

( multiply the token value times 4 ) 

( and add the result to the copy ) 

( of the base pointer to calculate ) 

( the address of this token's token ) 

( table entry } 

( put the contents of this token*s } 

( token table entry-the code addr ) 

( for the word corresponding to the } 

( token-in the Al register ) 

( jump to the first instruction in the ) 
( code area for this word ) 


;c 


The first part of execute checks to see if the token to be 
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token table base address. The resulting address in the AO 
register is the address of the token table entry for the word to 
be executed {the address of newword f s token table entry). Note 
that all of the addition operators use the ’,w' (word length) 
suffix so that the upper word of the base pointer address is not 
affected by the addition operation. 

In line (6) the code address stored in the token table entry {the 
code address for newword ) is placed in the A1 register. 

In line (7) program execution is vectored to the code area for 
newword by means of a f JMP (Al) 1 or, "jump to the code for this 
word" instruction. 

Nesting 

As the diagram shows, the first field in newword's code area is a 
2-byte code field. The instruction in the code field is a r JMP 
{np) 1 instruction, newword , and all other tForth definitions 
created by the defining word ; will have a f JMP (np) 1 instruction 
in their code field. In tForth the np (A3) register is used to 
hold the address of the tForth nesting routine (described 
below). The nesting routine is always the first routine run 
whenever a colon definition is executed. 

In the 68000, each time a 'JSR* (jump to subroutine) instruction 
is executed, the address of the instruction at which execution 
should resume after the subroutine completes execution (the 
address of the instruction which immediately follows the 'JSR* 
instruction) is placed on the 68000's system stack* The tForth 
processor is similar to the 68000 microprocessor in that f return 
information 1 is saved away each time a 'jump 1 down to a lower 
level FORTH word occurs* The process of saving FORTH return 
information and 'jumping 1 down to a lower FORTH execution level 
is called "nesting" {don't confuse this term with the tForth 
system integer named nesting ). In FORTH, the nesting process 
stops when a directly executable code definition is reached. 

The tForth nesting routine is used to make the transition between 
tForth execution levels. Each time a tForth word references 
another tForth word which is not a code definition, the system 
drops down to another execution level (’nests'). Any execution 
level can be completely described by two pieces of information: 
the delta distance from the start address of the definition 
currently being executed {kept in the sa register) to the address 
of the token currently being executed (see the diagram), and the 
address of the token table entry for the definition currently 
being executed (kept in the ct register). Here is a listing of 
the tForth nesting routine: 
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( 1 } 


( 2 ) 
( 3 ) 

( 4 ) 


( 5 ) 
( 6 ) 


frag .nest to 


sa ip .w 


( create a code fragment, store the address of ) 

( the code fragment into the ,nest system integer ) 


sub* 


xp 

ct 


rp 

rp 


-> 

-> 


* w 
. w 


move, 
move. 


al 2 ) d ip lea. 


al sa move, 
aO ct move. 


calculate the distance between ) 
the start of the current code ) 
area to the token in the code ) 
area which is currently being ) 
executed ) 

save this delta away ) 
save the lower word of the ) 
current token pointer away ) 
put the address of first ) 
token to be executed in the ) 
lower level definition in the ) 
instruction pointer ) 

Al points to the start of the code ) 
area of the lower level definition } 
AO points to the token field ) 
entry for the lower level defn. ) 


the ’next 1 code fragment starts here 


} 


( 7 ) 


( 8 ) 

( 9 ) 

{ 10 } 
( 11 ) 
{ 12 } 


ip 

)+ 

bp .b move, 

( place the token pointed to by ) 

( the ip pointer into the lower byte 
( of the base pointer ) 

bp 

aO 

move, 

( calculate the address of the ) 

aO 

aO 

.w add, 

( token table entry for the token ) 

aO 

* w 

add. 

( just fetched ) 

} 

al 

move. 

( get code addr. from token table ) 


al) jmp* 
c; 


( jump to the start of the code ) 
{ area for the new token ) 


The nesting routine code performs three functions. In the first 
half of the nesting routine, information about the previous 
execution level is saved away on the return stack (lines 1-3) nnd 
the current execution level information is set up (lines 4-6), 

The second half of the nesting routine (lines 7-12, also known as 
the ’next 1 routine), is responsible for starting the execution 
process going at the newly set up execution level (starting with 
the first token in the current definition), 

At the end of the execute routine {described previously), the Al 
register was left pointing at the code field for newword and the 
AO register was left pointing at the token table entry for 
newword . The state of these registers is reflected in the 
diagram. Discussion of the nesting routine as it relates to 
execution of newword will start at line (4) above, In line (4) 
the interpretation pointer, ’ip', is set up to point at the first 
token in newword 1 s parameter field area. This is accomplished by 
using the lea, instruction to add 2 to the address in the Al 
register. The nesting routine assumes that the code field in 
tForth is a 2 byte field. 

In line (5) newword's code field address is placed in the start 
address pointer, ’sa 1 , In line (6) the address of the token 
table entry for newword is placed in the current token pointer. 
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*ct f * The 'ct' and 'sa T registers always hold addresses which 
pertain to the instruction which is currently being executed, in 
this case, newword , At this point, a new execution level has 
been completely established and the tokens in newword f s code area 
may be executed. 

The last half of the nesting routine (the next routine} performs 
the same functions as the last half of the execute routine 
described above. Both sections of code take a token, calculate 
its token table entry address, fetch its code address from token 
table, and vector execution to the first instruction in the code 
area for the token. The only difference between the two pieces 
of code is that in execute the token to be executed is passed in 
on the parameter stack and in the nesting routine the token to be 
executed is pointed to by the interpretation pointer. 

Executing a tForth Code Definition 


The first token to be executed in newword belongs to blit (token 
$0A). blit is a code definition, so the code area for blit 
contains machine code: 

c' blit 10 dump 

11E6 10 ID 48 80 48 CO 2F 00 4B D4 70 00 12 ID 10 ID ,.H.H,/.N.p. 


101D 

ip 

}* 

dO .b move, 

( get the byte value which follows ) 

( the blit token and increment the 
{ ip ) 

4880 

dO 

. w 

ext. 

( extend it to a word value ) 

48C0 

dO 

.1 

ext. 

( extend it to a long value ) 

2F00 

dO 

sp 

*) move, 

( push the value on the stack ) 

4ED4 

nx 

) 

jmp. 

( exit to FORTH } 


Code definitions do not cause a change in execution level so the 
code field in code definition does not contain a jump to the 
nesting routine. The machine code instructions in blit’s code 
and parameter fields are executed straight through. Since 
execution of a code definition did not cause any nesting to 
occur, termination of a code definition does not require any 
”unnesting", Program execution simply continues with the next 
token in the definition. For this reason, a 'JMP (nx) 1 
instruction is used at the end of a code definition. This 
instruction causes the second half of the nesting routine, the 
part of the nesting routine which starts execution of the “next 11 
token in the definition, to be executed. 

During execution of blit the ip was ’bumped* over the byte length 
literal data, $03* Therefore, the ip is currently pointing at 
the * token , # , dup , and * are also code definitions so this 

same cycle (jump to the code address, execute the machine code 
instructions, return to next) will be repeated three more times. 
Only when the token for tierl is executed does the execution 
cycle get more involved. 


- 91 - 



Tier Tokens 


The tPorth interpreter steps through tForth definitions executing 
a single byte token at a time. The interpreter does not know how 
to execute 2 byte tokens. Single byte execution works fine with 
tokens numbered OO-FF hex {the tokens located in tierO of the 
token table). But what about the tokens in the rest of the 
tiers? Tokens in the other tiers would have token numbers like 
$123. $4A0, or $5FF, These numbers cannot be expressed as single 
byte values. The r tier words \ tier! through tier9 (which have 
token numbers $01 through $09 and are located in tier 0} are 
special versions of execute which know how to execute words 
represented by tokens located in tiers 1 through 9* respectively. 

The token for the word . is located in tier 1 of the token 
table. References to * are compiled as a two-byte sequence: *01 
0C t (see the previous diagram of the code area for newword). The 
*01* is the tierl tier token, tierl 'knows* that the token which 
immediately follows it in memory, the '0C f , is a token table 
entry number offset into tier 1 of the token table {rather than 
an actual token table entry number). This token table entry 
number offset must be added to the base token number for its tier 
to calculate an actual token entry number. For example, the base 
token number for tier 1 is $100 (for tier 2 it is $200, for tier 
3 it is $300, etc). The actual token table entry number for . 
would then be; $100 + $0C = $10C. Once a tier word has 
determined the actual token table entry number for a token, the 
token’s token table entry address can be calculated and the code 
corresponding to the token can be executed. 

All of the 1 tier words 1 are code definitions. The code 
definition for tierl is listed below: 
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code tierl ( - ) 

( 1 ) .tbl 100 + #n dO move, { put address of base of token ) 

( table, plus 100 hex which is the } 

( first token value in tierl, in the ) 

( dO register ) 

( 2 } ip )+ dO . b mrve, ( get the next token, the token for * , } 

{ $00* and place in the lowest byte of the } 

( value in the dO register, now the lowest ) 

{ 12 bits of the dO register contain $10C }( ( 


3 

) 

dO aO 

move, 


{ move the dO to the A0 register ) 

{ 

4 ) 

aO 

a0 

. W 

add, 

{ calculate the address of the token table ) 

( 

5 ) 

aO 

aO 

. w 

add, 

{ entry for . } 

( 

6 ) 

aO 

) 

al 

move, 

{ fetch the code address for . from , 's ) 







{ token table entry ) 

( 

7 ) 

al 

) 

J m P i 

i 

{ jump to , *s code area ) 


When a tier token is executed it first adds the base token number 
for its tier to the base address of the token table (line 1 
below* the system integer .tbl holds the token table address). 
Next, the token table entry offset into the tier (i.e, the token 
value which immediately follows the tier token in the 
definition’s code area, $0C in this example) is added to the 
previous result {line 2) . The last 5 lines of code in tierl are 
used to calculate the address of the token table entry in tier 1 
for . , to get the code field address for , , and to vector 
program execution to the code area for , : 

Words whose tokens are located in tiers 1 through 9 are compiled 
as a two byte token sequence. To conserve program space, the 
words in tForth have been arranged so that the most often used 
words are located in tierO. 


Nesting Down a Level 

Here is a listing of the code area for . : 

c' * 20 dump 

3E30 4e D3 2D 57 01 04 01 06 31 01 08 01 07 01 01 24 N.-W_ 

3E40 10 FF 4e D3 01 04 01 06 01 07 01 01 24 10 20 IF , .N.. . 

2D name dup 

57 name abs 

0104 name <# 

0106 name #s 

31 name swap 

0108 name sign 

0107 name #> 

0101 name space 

24 name type 

10 name <exit> 


. is a colon definition so its code field contains a ’jump to 
the nesting routine* instruction. Execution of the nesting code 
will cause a change in execution level to occur, A change in 
execution level at this point means that the system will stop 
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executing tokens in newword and will start executing tokens in , 

Let's follow the transition between execution levels (refer back 
to the listing of the nesting code fragment). 


Line 1: 

The delta between the start address of newword's code 
area, held in the sa register, and the address of the 
token to be executed next, held in the ip register, is 
calculated and the result is left in the ip register. 

Line 2: 

The word length delta value is store in the return stack 

Line 3^ 

The lower word of the token table entry address for 
newword is saved on the return stack. 

Line 4: 

Put the address of the first token in , in the ip 
register. 

Line 5: 

Put the code field address of , in the sa register. 

Line 6: 

Put the address of the token table entry for , in the ct 
register. 

Line 7* 

Fetch a copy of the first token in . t put the byte 
length token value in the bp register, and bump the ip 
pointer ahead one byte. 


Lines 8-12: Calculate the token table entry address for the 

token and vector program execution to the token 1 s code 
area, 

Un-Nesting 

When . has completed execution, the final word to be executed in 
newword is <exit> (also called <;> ). <exit> takes two word 
length pieces of 'return' information off of the return stack and 
restore the execution-related registers so that execution may 
continue at a previous execution level. Here is the listing for 
<exit> : 
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code 


<exit> 

Parameter: { 

- 

} Return: ( nl n2 - ) 

rp 

)+ 

ct .w move. 

( 

replace the lower word of the ) 




{ 

current token table entry } 




{ 

address with the lower word of ) 




< 

of the token table address being ) 




{ 

used at the previous execution ) 




( 

level } 

rp 

)♦ 

aO *w move, 

( 

remove the delta ip value from ) 




( 

the return stack ) 

ct 

al 

move f 

( 

move the new token table entry ) 




{ 

address to the al register } 

al 

} 

sa move, 

{ 

put the code field address found ) 




< 

in the new token table field into ) 




{ 

the sa register } 

aO 

S3 

0 xl)d ip 

lea. 

( add the code field address to the 




{ 

delta ip value and place the ) 




( 

resulting address in the ip reg* } 

next 

' t 





Since newword was executed interactively using execute , the 
above use of <exit> will T unnest 1 and allow execution of the main 
loop in quit , the 1 interpret loop’, to continue* 
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THE IMPLEMENTATION OF INTEGERS 


Important Integer-Related Registers 

There are two registers which are directly related to the 
functioning of tForth's integers: the 'iv 1 and the ’vp T register 
(see below)* The exact usage of these registers will be 
explained later in this section* 


REGISTER 

SYMBOL 

USAGE 


D6 

iv 

Holds the address where the value 
the current integer is stored, 
"integer value" 

of 

A 2 

vp 

Holds the address of the run-time 

for integer . 

code 


Creating Integers 

The defining word integer is used to create new integers* 
integer is a defining word because it creates named {words with 
dictionary headers) child words and assigns run-time actions (the 
run-time action of a child word created by integer is to place 
its value on the stack} to the child word* Here is the 
definition of integer : 

: integer ( Compile time: n - | Run-time: - n } 

create ( create a dictionary header for the ) 

( new integer } 

4ED2 w, ( lay a 'jump to the address stored in ) 

( the vp register* instruction in the code ) 

( field of the child words code area ) 

, ( lay the 4 byte initial value for the integer ) 

( into memory immediately following the ) 

( * jump f instruction ) 


12 integer fred 
* fred * 3B1 

e* fred 10 dump 
47938 4 e D2 00 00 00 


( create a new integer named fred ) 

{ this is the token assigned to fred ) 

( display the contents of fred’s code area ) 
12 31 84 66 72 65 64 07 32 83 6a n . l,fred.2.j 


testl { - } fred * ; ( use fred in a colon definition } 


( show how a reference to fred is ) 
c' testl 10 dump ( compiled into a colon definition ) 

4793E 4E D3 03 B1 01 oc 10 00 6B 8l 00 07 36 85 64 6F N. k*,*6*do 


In the first example above integer was used to create a new 
integer named fred . Then, 1 was used to check the token 
number assigned to fred . Finally, c* was used to display 
the code area for fred * The code area for fred contains a 
1 4ED2 , t or "jump to the address in the vp (a2) register" and the 
4 byte value , ‘00000012’, of fred 
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The second example above uses fred inside of a simple colon 
definition and then displays the contents of the colon 
definition’s code area* The code area dump shows that integer 
references are compiled the same way as a references to other 
colon definitions are compiled, the token for the integer is laid 
into the code area of the colon definition* 

Execution of Words Created By integer 

The discussion of the tForth execution process showed that every 
colon definition contains a two byte machine code instruction, a 
"jump to the address in the np (a3) register {opcode = 4 eD 3)'*, in 
its code field. During execution of colon words, execution of 
this special instruction would cause the tForth nesting routine 
to be run* 

The execution process For integers is very similar to the 
execution process for colon definitions. The vp, or a2, register 
in the V777 system is used to hold the address of the code 
fragment shown below. Whenever the token corresponding to an 
integer is executed, program execution will be vectored to the 
code field in the integer*s code area. This will cause the ’JMP 
(vp) T instruction to be executed and the code below will be run: 


( 1 ) 

( 2 ) 

( 3 ) 

( 4 ) 
{ 5 ) 
{ 6 ) 

( 7 ) 
{ 8 ) 

( 9 ) 


When execution of the ,ramint code fragment starts, the al 
register will be pointing to the code field for the integer (see 
the diagram on the following page)■ This position of the al 
register was described in detail in the section on the execution 
of token threaded code. In line 1 of the integer code above the 
address in the al register o.s repositioned so that it points at 
the start of the parameter field in the integer*s code area- As 
the diagram show the parameter field in an integer T s code area 
is four bytes long and holds the current value of the integer. 

In line 2, the familiar run-time action of integers is 
performed: the integer’s value is placed on the parameter 

stack. In line 3* the address where the integer’s value is 
stored is placed in the iv register. Lines 4 through 9 are 
identical to the last 6 lines in the nesting routine. These 
lines are responsible for causing the next token in testl , the 
token for , , to be executed. 


frag .ramint to { - n ) 


2 

#n 

al 

addq, 

{ * point * al at the parameter field/ 
( data for the integer ) 

al 

) 

sp 

-) move, 

( push the integer’s data on the ) 

( parameter stack ) 

al 

iv 

move. 

{ put the address of the integer's ) 





{ data in the iv register ) 

ip 

) + 

bp 

. b move, 

( keep tForth execution going } 

bp 

aO 

move. 

( by causing the next token in ) 

aO 

aO 

. w 

add. 

( the word which * called* the ) 

aO 

aO 

. w 

add, 

( integer to be executed,,, ) 

aO 

) 

al 

move, 


al 

} 

j m P i 

i 
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Integers Execution 


('jmp (np)’ instruction ) 


(code area for testl ) 


4ED3 


03 


B1 01 0C 10 


{'jmp (vp)' instruction ) 


( code area for fred ) 


[4ED2| 

100 00 

00 

1 2 


t t 


a 1 al' 

t 

iv 














How the Integer Operators Work 


Here is the code definition for and an example usage of to 

code to ( nl n2 - ) 
iv aO move, ( 

( 

4 #n sp addq, ( 

( 

sp )* aO ) move, ( 

( 

next; 

5 fred to 

to should always be executed immediately after an integer (or a 
local variable) name has been executed. After an integer is 
executed, the integer r s value will be on top of the stack and the 
address of the integer's storage location will be in the iv 
register. Since to is also passed the new desired value for the 
integer, there will be two items on the stack when to is 
executed, the current integer value will be on top of the stack 
and the desired new value will be second on the stack. 

In the first line of to the address of the integer's storage 
location is moved into the aO register. In the second line the 
integer's current value is dropped from the stack. In the third 
line the new value on top of the stack is stored into the 
integer's storage location. 

♦to is very similar to to : 

code +to ( nl n2 - ) 

iv aO move, ( put the address of the integer's storage ) 

( location in the aO register } 

4 #n sp addq, ( drop the current integer value from the ) 

( parameter stack } 

sp }+ dO move, ( put the increment value in the dO reg ) 
dO aO } add, ( add the increment value to the current ) 

( value of the integer ) 

next; 

4 fred +to 

addr is even simpler than to : 
code addr ( n. - a ) 

iv sp ) move, ( put the address of the integer's storage ) 

( location in the top position on the param } 
{ stack, write over the integer's current ) 

( value ) 

next; 


put the address of the integer's data } 
in the aO register ) 

drop the top item, n2 - the integer's ) 
current value, from the param stack ) 
store the new value, nl, into the } 
integer's storage location } 
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System Integers 


tForth and V777 system integers, integers which are used during 
operation of tForth or the editor, are implemented and executed 
in a completely different manner than integers created with the 
use of integer * 

The first difference between system integers and regular integers 
is that system integers are not created with integer , System 
integers are created with a special integer creation word which 
is not available for use in the editing environment, A second 
difference is that the values of system integers are located in a 
special T tiered T integer data table* The final difference is 
that system integers have dictionary header entries for their 
names but do not have any corresponding dictionary code areas. 

The reasons for these differences are described below. 

The System Integer Tier Table 

The diagram on the following page shows how the system integer 
tier table is arranged. The tiered integer table is very similar 
to to the tiered tok i table. The system integer table has 9 
tiers, numbered 0 through 8. Each tier is 256 {decimal) bytes in 
size (each tier in the token table is 1024 bytes in size)* 64 
4-byte system integer values can be stored in each tier (64*4=256 
bytes). The system integer table can hold a maximum of 5?6 
(64*9=576) system integer values. 
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System Integer Table 



tier 0 

(1BXX tokens) 


tier 0 

(1CXX tokens) 


tier 0 

(1DXX tokens) 


tier 0 

(1EXX tokens) 


tierO 

(1FXX tokens) 


tier 0 

(20XX tokens) 


tier 0 

(21XX tokens) 


tier 0 

(22XX tokens) 


tier 0 

{23XX tokens) 


255 bytes per tier, 
room lor 64, 4 byte 
system integer 
values per tier 


unused system 
integer entries 


Close up of the start of system integer tier 0: 


offset = $00 
offset = $04 
offset = $08 
offset - $0C 
offset - $10 
offset = $14 
offset = $18 
offset = $1C 
offset = $20 
offset = $24 
offset = $28 


token 

token 

token 

token 

token 

token 

token 

token 

token 

token 

token 


1 BOO 
1B04 
1B08 
1B0C 
1B1Q 
1B14 
1B18 
1B1C 
1B20 
1B24 
1B28 


entry 

entry 

entry 

entry 

entry 

entry 

entry 

entry 

entry 

entry 

entry 


value for 'here' 


value for ’base' 

































System Integer Token Assignments 


The value of the system integer here is located in the very first 
position in the system integer table* The value of the system 
integer base is located in the second position in the system 
integer table. The memory dump below shows how references to 
system integers are compiled into colon definitions: 

: test2 (-an) here base ; 

e 1 test2 10 dump 

47940 4E D3 IB 00 IB 04 10 00 6B 81 00 07 36 85 64 6F N.k*,.6.do 

System integers are always compiled as a 2 byte token sequence 
{even if the system integer is located in tier 0 of the system 
integer table }. here has been assigned the tokens ’IB’ and 
’00’. base has been assigned the tokens f lB* and r 04'. Token 
values ’IB’ through ’22’ hex are assigned to the lower level 
system integer execution words into through int8 * The system 
integer execution words perform functions which are analogous to 
those performed by the tier words { tierl through tier9 ) 
discussed in the tForth execution section* Here is the 
definition of the system integer execution word into : 

code into ( - n ) 

*int 000 + ( add the offset to system integer tier 0, ) 

( which is zero, to the base address of the } 

( system integer table } 

#n iv move* ( put the address of the start of system ) 

( integer tier 0 in the iv register ) 
ip )+ iv *b move, 

( get this system integer’s offset into tier 0 ) 

( and add it to the address in the iv register } 

( to determine the address of this system ) 

( integer’s entry in the system integer table ) 
iv aO move, ( put a copy of the iv in the aO register ) 

aO ) sp -) move, ( fetch the system integer’s data from its ) 

( entry in the system integer table ) 

next; 

into uses a very simple equation to calculate the address of a 
system integer’s storage location in the system integer table. 

The offset to tier 0 in the system integer table is added to the 
base address of the system integer table (obtained by executing 
the word *int , which is not available for use in the editor 
environment). The offset to tierO is 0, the offset to tier 1 is 
100 hex, the offset to tier 2 is 200 hex, etc* The system 
integer’s offset into a particular tier in the table is added to 
the base address of its tier to calculate the exact address of 
its table entry. When a reference to a system integer is 
compiled the first byte ( 1 1B f through r 22'} is the token for the 
system integer execution word which corresponds to the integer’s 
tier and the second byte {’00 1 for here and ’04’ for base ) is 
the offset from the start of the tier to the integer’s storage 
location. 


102 - 




Execution of System Integers 


The word execute contains special provisions for the execution of 
system integers. Here is the top half of the execute routine 
listed previously: 


code execute 

( n 

sp ) + 

dO 

move, 

\int 8 

shl 

#n dO 

. w 

emp, 


nc if, 

,int \in! 8 

#n dO add, 


dO iv move, 
iv aO move, 
aO ) sp -) 
next, 

then. 


) 

( get the token from the stack ) 

( form the value 1 1B00’ hex ) 

{ if the token value is greater than ) 

( or equal to 1BOO then the token ) 

( belongs to a system integer ) 

shl - { subtract 1B00 from the base ) 

{ address of the integer table } 

( now add the token value to the ) 

( previous result to calculate the ) 

{ address of the integer’s storage ) 

{ location ) 

{ fetch the system integer's value ) 
move, { and place it on the parameter } 

{ stack ) 


If execute is passed the token value for a system integer, it 
performs the system integer functions immediately (place the 
system integer value on the stack and place the address of the 
system integer storage location in the iv register)* 
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THE IMPLEMENTATION OF LOCAL VARIABLES 


The word test3 below is a simple example word which demonstrates 
the usage of tForth local variables. In test3 three local 
variables, named ’one 1 , ’two 1 , and ’three 1 , are created and 
then referenced. The dump of the code area for test3 will be 
used as a reference during this discussion of the implementation 
of local variables: 


test3 { - r' n2 n3 ) 

local one local two local three 

1 one to 

2 two to 

3 three to ; 


( create 3 local variables ) 
( put a 1 in one ) 

( put a 2 in two ) 

( put a 3 in three } 


c 1 test3 20 dump 

*17800 4e 03 14 0C 4l 15 4f 0A 02 16 4F 0A 03 13 08 4f N. ..A.O.. .0.. . .0 
478EQ 11 OC 13 08 11 0C 00 00 00 3A Bl 00 07 36 85 64 ..... :...6.d 


4 ED 3 

14 0C 
4i 15 4f 
0A 02 16 4F 
0A 03 13 08 4f 

11 OC 


This is the machine code instruction compiled at 
the start of all colon definitions. 

Token for <locals> , data for <locals> 

Tokens for 1 {puts a ‘l 1 on the stack), <loc0> , to 
Tokens for blit , data for blit , <locl> , to 
Tokens for blit , data for blit , <local> , data 
for <ioca!> , to 

Token for <;lp> , data for <;lp> 


Execution of Words Which Contain Local Variables 


This section will briefly discuss how words which contain local 
variables are executed, test3 will be used as an example. 

The declaration of the first local variable in a word causes the 
token for the word <locals> to be compiled. The byte location 
which immediately follows <locals> is used to hold data used by 
<locals> . The listing below shows the run-time actions of 
<locals> : 


code <locals> ( - ) 


0 

#n 

dO 

moveq. 

{ 

ip 

>+ 

dO 

,b move, 

{ 

( 

( 

dO 

rp 

sub, 


{ 


next. 


clear the dO register ) 
get the byte of data which ) 
immediately follows <locals> ) 
create a local variable storage ) 
area on the return stack ) 


At execution time, <locals> is responsible for initializing the 
storage area to be used by the local variables used in the 
definition. The storage space for local variables is located on 
the return stack. When <locals> is executed, it subtracts the 
byte value which immediately follows it in memory, the byte value 
indicates how much local variable storage is required by this 
definition, from the current return stack pointer address (see 
the diagram on the following page). 
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Local Variable Return Stack Usage 


highar mamory 


lower memory 


offset = 8 


offset = 4 


offset = 0 





return 


informatior 

\ 



storage for 

3rd beat variable 
created ("three") 

storage for 

2nd local variable 
created ("two") 

storage for 

1st local variable 
created rone") 


old rp 


new rp 



2 bytes 











This repositioning of the return stack pointer creates a "hole" 
in the return stack which will be used as the local variable 
storage area while the definition executes. The contents of the 
local variable storage area are not initialized to any value. 
Since test3 uses 3 local variables, which each require 4 bytes of 
storage, a 12 decimal byte storage location is set aside on the 
return stack. 

The next 3 tokens in test3 will place a *1' into the one local 
variable, f 4l’ is the token for the word 1 * 1 will put a 

on top of the parameter stack when executed, , 15 t is the token 
for the local variable word <locO> , The run-time actions of 
<locO> are: 


code 

<loc0> 

< ~ n ) 



rp 

iv 

move, 

{ put the address of the storage ) 
{ location for the first local ) 

{ variable in the iv register } 

next; 

rp 

) 

sp -} move, 

( put the contents of the first } 

{ local variable on top of the ) 

{ param stack ) 


one was the first local variable declared in test3 * The 
storage location for the first local variable is always located 
at an offset of 0 from the top of the return stack. Local 
variables act like integers. When a local variable is executed, 
its contents are placed on the parameter stack and the address of 
its storage location is placed in the iv register. Because local 
variables act like integers, the word to , whose token will be 
executed next, will be able to store the value * 1 ' into the local 
variable's storage location. The diagram reflects the effects of 
the execution of these three tokens. 

The next line to be executed is f 2 two to*. The corresponding 
4 tokens to be executed are 'OA 02 16 4F r . 1 0A f is the token for 

blit , When blit is executed it will place the byte length data 
which immediately follows it in memory (the T 02 f ) on the 
parameter stack, *l6 r is the token for the local variable word 
<locl> , These are the run-time actions of <locl> : 


code <locl> 

( - 

n ) 




rp 

4 

)d aO 

lea. 

( get the 

address of the second 

) 





( storage 

location in the local 

) 





( variable storage area ) 


aO 

} 

sp -) 

move. 

( put the 

contents of the 2nd ) 






( storage 

location on the stack 

) 

aO 

iv 

move. 


( put the 

address of the 2nd ) 






( storage 

area in the iv register 


next; 


The second local variable dec! red in a definition is always 
given storage at an offset of 4 bytes from the top of the return 
stack. Aside from the use of a different offset, the actions of 
<locl> are very similar to those of <loc0> , The contents of the 
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second storage location are placed on the parameter stack and the 
address of the second storage location is placed in the iv 
register. 

The next line of code to be executed is '3 three to 1 . The 
tokens for this line are 'OA 03 13 08 4F 1 , The *0A 03* causes a 
3 to be placed on the parameter stack during execution. The '13 1 
is the token for the local variable word <local> : 

code <local> ( * n ) 


0 

#n 

iv moveq, 

( 

clear the iv register } 

ip 

h 

iv .b move, 

{ 

put the byte of data which ) 




( 

immediately follows <local> ) 




< 

into the iv register ) 

rp 

iv 

add, 

( 

calculate the address of this ) 




( 

local variable's storage location ) 




{ 

and leave it in the iv register } 

iv 

aO 

move. 



aO 

} 

sp -) move t 

( 

put the contents of the local ) 




{ 

variable's storage location on ) 




( 

the parameter stack ) 


next; 

The third local variable, and all subsequent local variables 
declared in a definition, have the offset to their storage 
location on the return stack compiled into the definition 
immediately after the token for <local> . The storage location 
for the three local variable is located at an offset of *8 f from 
the top of the return stack. The first two local variables 
declared in a definition use special words ( <loc0> and <locl>), 
which take advantage of fast addressing modes, to access their 
contents. The contents of all other local variables are accessed 
using the more generic word <local> . 

The final two tokens in test3 , 1 11 GC* t are used to clean up 
after, and terminate execution of test3 . 'll 1 is the token 
for <;lp> , which is the special version of <;> compiled when 

a word which contains local variables is being terminated: 


<;ip> 

( ■ 

- ) 



0 

#n 

dO 

moveq T 


ip 

)♦ 

dO 

.b 

move ( 

( find out how much local variable ) 

( space this definition used ) 

dO 

rp 

add, 


( reclaim the return stack space } 

rp 

) + 

ct 

. W 

move, 

( take the return information off ) 

rp 

) + 

aO 

. w 

move t 

( of the return stack and use it } 

Ct 

al 

move. 


( to restore the ip and sa registers 

al 

) 

sa 

move, 

i 

( used during the previous } 

aQ 

sa 

0 

xl) d 

ip lea. 

( execution level ) 

next; 
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When a word which uses local variables is compiled, the last byte 
in the word's code area will contain a byte value which indicates 
how much local variable storage the word uses during execution. 
<;lp> uses this data to reclaim the return stack space when the 
word has completed execution. 

Compilation of Words Which Contain Local Variables 

local is the main word responsible for the creation of local 
variables: 


local ( 
locals 


0- ( have any local variables been created ) 

( yet? if not, perform these special local ) 
( variable initialization processes... ) 
applic 0A ” localvoc to 


emptyvoc 

0A 

+ localvoc 0A cmove 


compile 

<locals> 


here location to 


0 c t 

( 

compile a ^spacer' byte ) 


then 

tokens >r 
locals tokens 

to 

{ save tokens value away ) 

{ put return stack offset into tokens 

word 


( get name for this local variable ) 

localvoc addr 

str 

len assign { create header 

entry and 

4 locals +to 
r> tokens to 

i 

( put offset in token field 
( increment offset } 
immediate ( restore tokens 

) 

value ) 


locals is the system integer used to keep track of how much local 
variable storage space is required for the definition currently 
being compiled {the colon definition defining word : will 
always set the contents of locals to zero at the start of 
compilation of a new colon definition}* When compilation of a 
colon definition terminates, locals will hold a value which 
specifies the complete local variable return stack storage 
requirements of the definition* During compilation of a colon 
definition, the value in locals is used to determine the return 
stack offset for the local variable currently being declared. 

When local is used to create a local variable, its first action 
is to check the current value of locals * If locals contains a 
zero, it means that local is being asked to create the first 
local variable for a definition. The creation of the first local 
variable for a definition requires that the special ’first-local r 
initialization code, contained between the if and then in the 
definition of local, must be executed. This special 
'first-local 1 initialization code performs the following 
functions; 

1. Constructs an empty, temporary vocabulary, which is 
invisible to the rest of the system, and places it 
immediately below the current location of applic 
(see the "Opening and Closing Vocabularies" diagram)* 
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2, Stores the address of this special vocabulary in the 
system integer localvoc 

3- Compiles the token for the word <locals> into the 
definition currently being created. 

4, Compiles a byte length * spacer * {with a value of 0} 
into the definition- This spacer area will later be 
used to hold a value which indicates how much 
local variable storage is required by this definition. 

The address of the spacer location is stored in the 
system integer location 

This initialization code is performed only when the first local 
variable is created for a definition. The rest of the code in 
the local definition performs the normal functions of local : 

1. assign is used to create a dictionary header entry 
( str and len hold the address and length of the 
name for the local variable) for the local variable 
in the special local variable vocabulary. 

2* The contents of the locals integer are incremented 
by four to indicate that four more bytes of local 
variable storage space are required for this definition. 

The Words assign, tokens, and recycledtoken 

Local variables do not have any associated code area because the 
words <loc0> t <locl> , and <local> are used to perform 
the run-time actions of local variables. For this reason, the 
token field in a local variables header field is not used in a 
standard manner. Rather than holding an encoded token value, the 
token field in a local variable dictionary header is used to hold 
the offset to the local variable's storage location on the return 
stack. 

To use the token field in this non-standard manner, local must 
perform some non-standard manipulations of the contents of the 
tokens system integer. tokens holds the next token value 
available for assignment to a new definition. The word assign 
is used by local to create a dictionary header entry for the 
local variable in the special, invisible dictionary header area. 

To fill in the token field of the dictionary entry assign calls 
recycledtoken , recycledtoken must perform Four tests before 
it can decide which token value to return to assign : 

1- Is the system is undergoing target compilation? 

If it is, recycledtoken will return the current value of 
tokens to assign {the next token value available for 
assignment) and then will increment the tokens value by one, 

2. Is the value in tokens greater than the value in ramtokenO? 
The system integer ramtokenO holds the token value of the 
first word in the dictionary which is not a ram word. If the 
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value in tokens is greater than the ramtokenO value, the 
system is attempting to add a new word to the dictionary. 

Rather than immediately returning and telling assign to assign 
the value in tokens to the new definition, recycledtoken 
will First check all of the previously assigned ram token entries 
{starting at the ramtokenO entry and continuing to on to the 
last known assigned token table entry, the entry corresponding 
to the token value which is one less than the value in tokens } 
to see if any of the entries have been freed up due to the 
removal of a word from the system (if a token has been freed, 
its corresponding token table entry will hold the code address 
of the word freetoken ). If a token in this region is available 
for re-use, recycledtoken will return its value to assign , 
otherwise, it will go ahead and return the value in tokens 

3* Are all available token table entries in the token table in use? 

If the value in tokens corresponds to a token table entry 
which would not fall within the known token table area, no 
more tokens are available for assignment to new words, the 
dictionary is full* recycledtoken should return a t 0 l if this 
situation occurs {although it seems to return a '-1* in the 
current listing)* 

4* Is the system trying to use the token field in a non standard 
manner? 

Tokens assigned to words in the roms cannot be purged or 
reassigned. Therefore, if the current value in tokens is less 
than the token value found in ramtokenO , the system is 
trying the dictionary header fields in some non-standard 
manner {as is the case with local variable headers where the 
token field in the header entry is used to hold the local 
variable's execution time return stack offset)* In this case, 
recycledtoken will immediately return whatever value is 
currently in tokens to assign 

The listing for recycledtoken is shown on the following page. 

The word i f ('integer-tick') is a target compiler word which 
returns the storage address for the system integer whose name 
immediately follows it* The word tc' {’tee-see-tick') is a 
target compiler word which returns the code address for the word 
whose name immediately follows it, endtable is the system 
integer which holds the address of the end of the token table. 

: recycledtoken { - token } 

i' tokens dl move, 
i* ramtokenO dO move, 
tc f freetoken #n d3 move, 
i f targeting tst, 

1 ne bra, 


( get current contents of tokens ) 
( get value of ramtokenO ) 

{ get code address for freetoken ) 
( if targeting is on, return and ) 

( increment tokens ) 
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dO dl cmp, 
1 It bra, 


dO dl sub, 

1 #n dO subq. 


{ tokens value ~ ramtokenO value ) 
{ if tokens value is less than ) 

{ ramtokens value, return and ) 

{ increment tokens ) 

{ tokens value - ramtokenO value ) 


begin, ( look for a token to be recycled ) 



1 

#n 

dO 

addq, 

( check all token table entries } 


bp 

d2 

move, 

( from the start of the token table ) 


d2 

.b 

clr, 

( to the entry corresponding to ) 






{ token value in tokens ) 


dO 

d2 

add. 

{ is the execution address of ) 


d2 

d2 

. w 

add 

( freetoken in any of the token ) 

{ table entries? } 


d2 

d2 

. w 

add. 



d2 

aO 

move, 

{ aO holds token table entry addr } 


aO 

) 

d3 

cmp. 

( does entry hold freetoken's code } 

( address? ) 


eq 

if 

> 


( if so, recycled the token ) 



dO sp -) move 

, ( by returning its value to assign ) 



next, 




then. 



{ used recycled token ) 

dl 

nt 

■until, 


( check all token table entries ) 






( until the token table entry } 

{ corresponding to the value in } 

{ tokens is reached ) 

i’ 

endtable 

dl 

move, 

{ get the address of the end of } 






{ the token table ) 

aO 

dl cmp, 



{ has search reached the end of ) 






{ the table? ) 

It 

if. 






-1 

#n 

sp 

-) move, 

( out of tokens, return 0? } 

else. 






d3 

aO 

) 

move. 

( put the address of freetoken ) 

{ in this token's entry ) 

1 

: 1 i* 

tokens 

#n aO move, ( return the value in tokens ) 


aO 

) 

sp 

-) move, 

{ new token } 


1 


aO 

} addi, 

( increment tokens } 


then, 

next; 


local takes advantage of the relationship between tokens and 
assign , Before local uses assign , it saves away the 
current value of tokens and places the current value of 
locals (which holds the return stack offset for the current 
local variable) into tokens . The largest possible return 
stack offset which would be stored into tokens would be 252 
decimal because only 64 local variables are allowed per colon 
definition. The current value of ramtokenO is approximately 
939 decimal. Therefore, when assign is used by local , it 
does not assign a new token for the local variable. Instead, 
assign places the offset found in tokens directly into the 
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token field. After local has used assign, the previous value of 
tokens is restored. 

At the end of compilation of the first line in test3 (the line 
where all the local variable declarations are made} the test3 
code area would look like this: 

4ED3 14 00 

4ED3 This is the machine code "jump to the nesting routine" 
instruction which is compiled at the start of all colon 
definitions, 

14 This is the token for <locals> 

00 This is a hole which will be filled in later with the value 

which indicates how much local variable storage is used 
by this definition. 

The locals system integer would hold a 12 decimal at this point 
because 3 local variables, which each require 4 bytes of storage, 
were declared for this definition. The location integer would 
hold the address of the spacer, and the loealvoc integer would 
hold the address of the temporary dictionary header area where 
the special local variable headers are located. The token field 
for one would hold a f 0 f since its storage location is located 
at an offset of r 0 T on the return stack. The token field for 
two would hold a f 4 f because its storage area is second on the 
return stack and the token field for three would hold an f 08 f . 

The Word doloc 


The remaining lines of test3 contain references to the newly 
created local variables. As interpret ’processes 1 these 
remaining lines (please refer the previous discussion on ’Running 
tForth), it is constantly using the word doloc to see if the 
word just encountered is the name of a local variable. Here is 
the listing for doloc : 


code doloc ( - f ) 

loealvoc str len <find> ( 

( 

if 

loops + ?dup ( 

( 

( 

if 

dup 4 = { 

( 

( 

if 

drop ( 

compile <locl> 

( 

else 

compile <local> 

c. 


can this word be found in the ) 
local variables vocabulary? ) 

if so, have any local variables ) 
or *loops* been used yet in this ) 
definition } 

if they have, was this the second ) 
local variable created in this } 
definition? } 

if it is the second, compile a } 

( special, fast local variable ) 
reference ) 

( otherwise, compile the normal ) 

( local variable reference } 
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else 


then 


compile <locO> { if this was the first local variable ) 

( created for this definition compile ) 

( a special, fast, local variable ) 

{ reference ) 

then 

drop 0 ( return a false flag to indicate } 

( that doloc handled this word ) 

( so the word needs no further ) 

( processing by interpret } 

then ; 

In the first line, doloc uses <find> to check the special 
local variable vocabulary to see if the name specified by the 
string address and length found in str and len is the name of 
a local variable. This is the stack notation for <find> : 

<find> { vocabaddr str len - addr token trueflag | If found ) 

{ vocabaddr str len - addr falseflag | If not found. } 

The flag returned by <find> is checked first by doloc to see 
if the word was the name of a local variable. If the word is the 
name of a local variable doloc checks the token value, or for a 
local variable, the return stack offset (the reasons for the 
reference to the loops system integer will be explained in the 
next section on the implementation of program control 
structures). If the offset is G, doloc ’knows 1 that the first 
local variable declared is being referenced so it branches down 
and compiles the token for <locO>. If the offset is 4, the 
second local variable declared is being referenced so the token 
for <loel> is compiled. If the offset is greater than 4, the 
token for <local) t and the byte length offset, are compiled. 

Terminating the Compilation of a Word Which Contains Local 
Variables 


The word ; compiles the final two tokens in test3 * * 11 * and 
’ 0C T f and backfills the spacer left in test3 : 


: ( - ) 

locals loops + ?dup 

if 

compile <;lp> 
c, 

else 

compile <;> 


{ if locals contains a nonzero ) 

{ value then this word uses local ) 

( variables ) 

( if it does, compile the token for } 
( followed by the amount of return } 

{ stack storage space required } 

( if this word doesn’t use local ) 

{ variables compile the token for ) 

( the normal colon definition ) 

{ termination word } 


(continued) 
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then 

state off ( return to the interpretation state ) 

locals { if this word used local variables ) 

if 

locals location c! { store the amount of storage ) 

{ space required in the spacer ) 

( location ) 

then 

locals off ; immediate 
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IMPLEMENTATION OF PROGRAM CONTROL STRUCTURES 


The lists below show all tForth words involved with program 
control structures. The first list below shows all of the low 
level program control primitives which define the run-time 
actions of the program control words; 


<Obran> <bran> <loop> <+loop> 

<leave> <01eave> <branl> <Obranl> 

<!eavel> <01eavel> <do> 


The next group of words are those which execute during 
compilation and cause the words listed above to be compiled: 


back 

?pairs 


{loop} {while} nest 


unnest 
do 

again 


if else then 

loop ♦loop begin 

until while leave 


Execution of Program Control Structures 

f begin,,,until f loops 

The memory dump below shows the code area for the definition 
pcsl t which contains a simple r begin.,.until 1 loop control 
structure: 

: pcsl ( - ) 

begin 

?t 

until ; 
c f pcsl 10 dump 

478 EA 4e D3 B3 18 FE 10 07 36 85 64 6F 7A 65 6E 07 31 N__,6,dozen,1 

4ED3 ’jump to the nesting routine f machine code instruction 

B3 token for ?t 

18 FE token for <0bran> t data for <0bran> 

10 token for <;> 

Note that begin does not cause any tokens to be compiled. During 
compilation * begin leaves its address on the stack so that the 
until or again which will eventually follow can determine how far 
back they must branch during execution. This delta backwards 
jump distance is compiled into the definition immediately after 
the token for the low level conditional branching primitive 
<0bran> { 1 bracket-zero-bran 1 ), The diagram on the following page 
gives a pictorial representation of pcsl , 
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A 'begin...until' Loop 


: pcsl ( - ) begin ?t until 


4 

E 

D 

3 

B3 

18 

FE (-2) 

10 


4 

E 

D 

3 

?t 

<Obra n> 


<;> 



















Here is the listing for <Obran> : 


code <0bran> 

( f 

- ) 

sp 

)* 

tst, 


eq 

if, 




ip 

) 

dO , b move 


dO 

, w 

ext. 


dO 

,1 

ext , 


dO 

ip 

add. 


next. 



then, 

1 #n ip addq , 


next; 


( test the flag on the stack ) 

( if the flag is Eero execute the ) 
( following instructions ) 

( get the byte branch data ) 

( extend it to word length ) 

( extend it to long word length ) 

( add the delta distance to the ) 

( current instruction pointer ) 

( address, execution will resume } 

( at the new address } 

( exit ) 

( flag was true, leave the loop ) 

( and continue execution at the ) 

( token which immediately follows } 
( the byte branch data } 


<Qbran> is a conditional branching primitive because it will only 
cause a branch under certain conditions. During execution, 
<Qbran> checks the flag passed to it on the parameter stack. If 
the flag is false (0) P a program branch will occur. Branching in 
high level tForth code involves modifying the instruction pointer 
(ip) so that it points at a different section of code- <0bran> 
uses the byte length data which immediately follows it in memory 
to determine the destination point for the branch. To calculate 
the destination address, the byte data is added to the address 
currently in the ip register. Before the byte data is added to 
the ip address, it is sign^extended to a long word. 

If the flag passed to <0bran> is true (nonzero), a program branch 
will not occur* The code between the if, and then, above, 
the code responsible for performing the branch, is not executed. 
Instead, the code which follows the then, is executed. This 
code adds 1 to the instruction pointer so that the byte branch 
data is skipped. When a true flag is passed to <0bran> , the 
instruction pointer will be left pointing to the token which 
immediately follows the branch data. 

During execution of pcsl , <0bran> will check the flag left on 
the stack by ?t . If the flag is true (nonzero) t the jump back 
to the beginning point will be skipped and execution will 
continue immediately outside of the loop. If the flag is false 
(0), the branch back to the start of the loop will be taken. 
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begin...while...again Loops 


The definition pcs2 below contains a ’begin*..while.. .again 1 loop: 

: pcs2 ( n - ) 

begin { begin. *. ) 

dup 1- swap ( duplicate the number on top of } 


( the stack, subtract 1 from the ) 
( duplicate, swap the values ) 




while 


( while the value is not 

zero..*) 




dup * 


{ duplicate it and display it ) 



again 


( back to the top.■* } 




drop ; 


{ drop the seed ) 


c' pcs2 

10 

dump 




478FO 

4E 

D3 

2D 3B 31 18 06 2D 

01 00 17 F7 2F 10 6E 07 

N* -;1../.n 

4ED3 



'jump to the nesting routine' machine code 

instruction 

2D 38 

31 


tokens for 

dup , 

1- , swap 


18 06 



token for 

<0bran> 

, data for <Gbran> 


2D 01 

oc 


tokens for 

dup , 

a 


17 F7 



token for 

<bran> 

t data for <bran> 


2F 



token for 

drop 



10 



token for 

<;> 




When while is used in a begin loop it also causes the low level 
word <Obran> to be compiled {see the diagram on the following 
page). If the flag passed to <Obran> at execution time is 
false (0), the branch out of the loop ( f <Obran> deltal 1 ) will be 
taken. If the <Gbran> flag is true (non 2 ero) f the code which 
immediately follows ^he <0bran> data, the code between the 
while and the aga_L , will be executed. 

The again causes a new unconditional branching primitive, 

<bran> ( 1 bracket-bran f ), to be compiled: 

code <bran> ( - ) 


ip 

) 

dO ,b 

move, ( 

get the byte delta branching data ) 

dO 

. w 

ext , 

( 

extend to a word delta value } 

d0 

.1 

ext, 

( 

extend to a long word delta value ) 

dO 

ip 

add, 

( 

add the delta offset to the } 




{ 

instruction execution address to ) 




{ 

calculate the address at which ) 




( 

execution should continue after ) 




{ 

the branch } 


next; 

Execution of <bran> will always cause a branch in execution to 
occur. The delta branch distance to be used for the branch is 
located in byte in memory which immediately follows the <bran> 
token. <bran> sign extends the byte value to a long word value 
and adds the sign extended value to the instruction pointer 
address to calculate the destination address for the branch. 
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A ' begin,..while...again ' Loop 


( - ) begin 

dup 

t- 

swap 

while 


dup 

- 


until 


drop 

R 

I 

4 D 3 

2D 

3B 

31 

18 

06 

2D 

01 

oc 

17 

F7{-9) 

2F 

10 


4 E D 3 

dup 

1- 

swap 

<Obran> 


dup 


<bran> 

Z±2 

drop 

<;> 









































if... else... then Conditonal Structures 


The word pes3 uses the 1 if...else,..then 1 program control 
structure: 

: pcs3 ( f 
if 

3 

else 

5 

then ; 

c 1 pcs3 10 dump 

478FE 4E D3 18 07 0A 03 01 0C 17 05 0A 05 01 0C 10 07 N 


( if the flag is true*,, ) 
{ *.. display a 3 ) 

( otherwise-., } 

( ■.* display a 5 ) 

{ and always display a 7 ) 


^ED3 
18 07 
0A 03 
01 0C 
17 05 
0A 05 
01 0C 
10 


^ump to the nesting routine* machine code instruction 
token for <0bran> * data for <0bran> 
token for blit , data for blit 
token for 


token for <bran> , data for <bran> 
token for blit , data for blit 
token for 

token for < ; > 


The diagram on the following page demonstrates how the 
1 if,,.else.,.then* structure works. The 1 if.else.--then 1 
structure uses the familiar <0bran> and <bran> branching 
primitives, if causes a conditional forward branch to be 
compiled. If the flag passed into pcs3 is true (nonzero) t the 
first branch shown in the diagram will not be taken and the code 
between the if and the else will be executed* else causes 
the unconditional <bran> instruction to be compiled. The 
<bran> instruction terminates execution of the code between the 
if and the else and unconditionally reroutes program execution 
to the code which follows the then 

If the flag passed into pcs3 is false (0), the first branch in 
the diagram will be taken and program execution will be rerouted 
to the code which immediately follows the 1 <bran> delta2 f tokens 
compiled by else , 
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An 'if...else...then' Loop 


pcs2 

( " ) 

if 


3 


m 


else 


5 


* 


then ; 

4 E 

D 3 

18 

07 

0A 

03 

01 

oc 

17 

05 

OA 

05 

01 

OC 

10 


4 E 

D 3 

<Obran> 

1 ^1 

blit 

03 

* 

<bran> 


blit 

05 

- 

<;> 





































do...loop and do...+loop Control Structures 


The pcs4 definition below uses the 'do..,loop* program control 
structure: 

: pcs4 ( - ) 10 0 do i drop loop ; 

c 1 pcs4 10 dump 

4790E 4E D3 0A 10 40 0D 39 2F 0E 10 7 A 65 6E 07 31 84 N... 9 /.*zen,1, 


4eD3 

'jump to the nesting routine 1 

1 machine code instruction 

0A 10 

token for blit , data for 

blit 

40 

token for 0 


0D 

token for <do> 


39 2F 

tokens for i , drop 


0E 

token for <loop> 


10 

token for <;> 



The 'do...loop 1 structure does not required the compilation of 
branching data. The branching data used by a 'do,.,loop 1 is 
passed on the stack at execution time. This is the code 


definition 

for 

<do> 

('bracket-do'): 

code 

<do> ( 

nl 

n2 

) 


ip 

rp 

-) 

move, 

( save branching data, the address of the ) 

( start of the 1 do,..loop 1 , on the ret. stack 


sp 

> + 

dO 

move, 

{ get the start value for the loop ) 


sp 

) + 

dl 

move. 

{ get the limit value for the loop } 


dl 

dl 

rp 

dO 

“> 

sub, 

move, 

{ move the limit value to the return stack ) 

( calculate the number of times the loop ) 

( should be executed: start - limit , a ) 

{ negative value ) 

next; 

dO 

rp 

-) 

move. 

( move the loop count to the return stack ) 


During execution* the <do> program control primitive takes two 
numbers from the parameter stack, the loop limit and start value, 
and places three items on the return stack, the start loop 
address, the loop limit value, and the negative loop count. The 
values on the return stack are used by the corresponding <loop> 

{'bracket-loop') or <+loop> {'bracket-plus-loop'). The listing 
for <loop> is : 


code 


<loop> ( - } 

1 #n rp } addi, ( Increment the negative loop count by 1 ) 

eq if, 

6 #n rp addq, { get rid of the 12 bytes of loop ) 

6 #n rp addq* { info on the return stack } 

next, 

then, 

rp 8 }d ip move. { fetch the address of tl . start ) 

( of the 'do,.,loop 1 out of the ) 

{ return stack frame and place ) 

{ the address in the ip register ) 

next; 
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<loop> , s first action is to subtract one from the number on top 
of the return stack, the loop count. If the loop count has 
reached zero, the code between the if, and the then, , which 
is responsible for removing the 12 bytes of data placed on the 
return stack by <do> from the return stack, is executed. If 
the loop count has not reached zero the code which follows the 
then, , which gets the address left on the return stack by 
<do> and places it in the ip register, is executed* The address 
left on the return stack by <do> is the address of the start of 
the 'do...loop’. Placing this address in the ip register causes 
program execution to be rerouted back to the start of the 
T do...loop*. A picture of the pcs^ execution time return stack 
frame and code area are shown on the following page. 
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The word while can be used in either the begin looping structure 
or in the do looping structure. When while was used in a begin 
loop above, it caused the <Obran> conditional branching primitive 
to be compiled. Since a conditional exit from a 'do...loop 1 is 
more involved than a conditional exit from a begin loop (the 
return stack must be cleaned up when exiting a 'do.,.loop' t see 
the listing for <loop> ), while will compile a different 
conditional branching primitive when used inside of a 
'do...loop'. pcs5 shows how while could be used in a 'do...loop' 
program control structure: 


: pcs5 ( - ) 

10 0 do ( go from 0 to 10 ) 

i 6 < (is the current loop index less than 6? ) 
while { while it is less than 6... ) 

i . { print the current loop index ) 

loop ; 


c r pcs5 20 dump 

47918 4E D3 0A 0A 40 0D 39 0A 06 m 26 05 39 01 0C 0E N...@.9--t&.9--- 
47928 10 66 72 65 64 07 32 83 6A 6F 65 07 2C 84 70 63 -fred.2,joe,,.pc 


4ED3 'jump to the nesting routine 1 machine code instruction 

0A 0A 40 token for blit , data for blit , token for 0 

0D token for <do> 

39 0A 06 7^ tokens for i , blit , data for blit f token for < 
26 05 token for <01eave> fl data for <01eave> 

39 01 0C tokens for i 

0E token for <loop> 

10 token for <;> 


The word <01eave> { 1 bracket-zero-leave *) is compiled when a 
conditional exit out of a 'do...loop' structure is required. 
<Gleave> , like <0bran> and <bran> , expects a byte of 
branch data to immediately follow it in memory (see the diagram 
on the following page). If the flag passed to <01eave> is true 
(nonzero), this byte of data will be skipped over (see the last 
line in the <01eave> code definition below) and the code which 
immediately follows the branch data will be executed (the code 
between the while and the loop in the pcs5 example}. If 
the flag passed to <01eave> is false (0), the code between the 
if, and the then, below will be executed. This code adds the 
byte branch data to the instruction pointer, to calculate the 
branch destination address, and then removes the 12 bytes of 
looping information from the return stack. In the pcs5 
example, the branch destination is the code which lies just 
outside of the 'do...loop' control structure. 
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do...while...loop structure 



























code <01eave> 


next. 


then, 
1 #n 


ip addq. 


{ get flag from the parameter stack ) 

{ if the flag is false, a branch will occur ) 
b move ( get the byte length branch } 

{ offset from the next byte ) 

{ location in memory } 

{ calculate the destination address } 

( for the branch } 

idd, { remove 12 bytes of information ) 
idd, { from the return stack ) 


( ’bump 1 the ip pointer } 


next; 


leave 1 ing From Program Control Structures 

The word leave is used to exit immediately and unconditionally 
from the current 'begin* or T do.••loop 1 program control 
structure. When leave is used inside of a begin loop it compiles 
the unconditional branching primitive <bran> , When leave is 
used inside of a * do.,,loop* however, it must use the special 
<ieave> unconditional branching primitive: 


: pcs6 ( - } 

10 0 do 

i 7 
if 

then 
loop ; 


( perform this loop ten times ) 

= { does the loop index equal 7? } 

leave ( if it does, leave this loop ) 

{ if it doesn't, loop back to the top of } 
{ the loop ) 


c 1 pcs6 20 dump 

4792A 4E D3 0A 10 40 0D 39 GA 07 70 18 03 25 02 0E 10 N...@.9..p..*■ 


'jump to the nesting routine* machine code instruction 


OA 10 40 

token for 

blit , 

data for 

blit , token 

for 0 

OD 

token for 

<do> 




39 OA 07 70 

tokens for 

i and 

blit , 

data for blit 

, token 

18 03 

token for 

<0bran> 

, data 

for <0bran> 


25 02 

token for 

<leave> 

t data 

for <leave> 


0E 

token for 

<loop> 




10 

token for 

<;> 




Here is the 

listing for 

<leave> 

* 

* 




<leave> ( 
0 #n dO 
ip ] dO 
dO ip ad 


dU moveq, 
dO , b mo' 
add, 

rp addq, 
rp addq, 


{ get the branch data } 

( calculate the branch destination ) 
{ address } 

{ remove the 12 bytes of } 

{ r do...loop* data from the stack ) 


next; 
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<Ieave> points the instruction pointer at the first instruction 
outside of the 'do-.-loop 1 and clears the 12 bytes of 'do,.,loop 1 
data from the return stack. 

The diagram on the following page illustrates the execution 
process for pes6 . If the flag passed to <Obran> is false (0)* 
the <Gbran> branch will occur and the instruction pointer will be 
routed past the <leave> token to the <!oop> token. If the flag 
passed to <Gbran> is true (nonzero), the <0bran> branch will be 
skipped over and the <leave> branch will occur. Execution of the 
<leave> token will cause the instruction pointer to be altered to 
point at the <;> token, which is the first token outside of the 
current f do,,.loop*. 
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A Note About Long Branches 


In the examples above, the compiled branch data used by the 
branching primitives words was 1 byte in length. This means that 
these primitives may only be used to branch to locations that are 
within 256 bytes of the start location for the branch. <branl> 

, <Obranl> , <leavel> , and <01eavel> are versions of the 
branching primitives described above which support the use of 
longer branch distances. Each of these ’long 1 versions of the 
branching primitives will be followed in memory by 2 bytes of 
branching data. Therefore, the long forms of the branching 
primitives support branches to locations which are up to 32K 
bytes away from the branch start address. 

The listing for the <0branl> primitive should adequately 
demonstrate the functioning of all of the long branching 
primitives: 

code <Obranl> ( f - ) 


sp 

)+ dO move, 

( get the flag from the stack 

) 

ne 

if. 

{ if the flag is false... ) 



2 #n ip addq. 

{ ... skip over the 2 byte ) 



next. 

{ branch data } 


then T 



ip 

)+ dO .b move. 

( if the flag is true get the 

1st ) 

8 

#n dO ,w lsl. 

( byte of the branch data and 

) 



( shift it into the 2nd byte of ) 



( the dO register ) 


ip 

) dO ,b move. 

( get the second byte of the ) 



{ branch data and put it in the } 

{ least significant byte of dO t ) 

{ now the 2 bytes of branch data ) 

{ are in the lower 2 bytes of the ) 
( dO register ) 


dO 

.1 

ext, 

( extend the branch dat■ to a ) 
( long word ) 

dO 

ip 

add, 

( add the branch data to the ) 

next 

1 


( instruction pointer } 


The main difference between the short and long versions of the 
branching primitives is that the long versions work with two byte 
branching data and the short versions work with one byte 
branching data. 

Interactive Execution of Program Control Structures 

When a program control structure, or a set of nested program 
control structures, is executed interactively (when it is used 
outside of a colon definition) execution will commence as soon as 
the outermost program control structure is closed. For example, 
the interactive execution of a single level T do...loop* would 
begin as soon as the closing loop is entered. Interactive 
execution of a T do...loop’ nested within an 1 if. ,.else... then 1 
program control structure would begin as soon as the then which 
closes the outer ’if...then 1 structure is entered. 


- 130 - 




do...if...leave then...loop 


A 

V 


o 






























During the interactive use of program control structures * the 
system goes into a 'temporary compilation 1 state. Code is 
compiled in the code area of the dictionary until the outermost 
control structure is closed. As soon as the outermost control 
structure is closed, the temporary code is moved from the 
dictionary to an interactive program control structure execution 
buffer and executed. The address of the interactive execution 
buffer is kept in the system integer execbuf 

tForth uses two system integers to determine if program control 
structures are being used interactively, nesting and state 
nesting is used to hold a count of how many program control 
structures have been nested inside of the outermost structure. 
Each time a word which starts a program control structure ( if 
, do , begin ) is used, the contents of the nesting system 
integer are incremented by one. Each time a word which ends a 
program control structure { then , loop * +loop , again ( 
until ) is used, the contents of the nesting system integer are 
decremented by one. If program control structures are used 
correctly, nesting should always hold a zero when the outermost 
structure is closed. 

state is used to keep track of whether the system is in the 
interpretation or compiling state. If state holds a zero, the 
system is in the interpretation state. Whenever the nesting 
integer holds a nonzero value while the state integer holds a 
zero, the system is performing the temporary compilation required 
for the interactive execution of program control structures. 

nest 


As the definition of nest shows, execution of nest will 
always cause the nesting contents to be incremented by one. 

If nest is used when both the nesting and state integers 
hold a zero, it means that temporary compilation of a program 
control structure has just started. In this situation, nest 
will save the address of the start of the temporary compiled code 
in the bound system integer and then will compile the 2 byte 
machine code instruction which tells the system to ’jump to the 
nesting routine 1 (during program execution) at the start of the 
temporary code (please do not confuse the nesting system 
integer used by the program control structures with the nesting 
routine used during the execution of token threaded code), 
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nest ( - ) 

nesting state or 0= 

if 


here bound to 
4ED3 W, 


then 

1 nesting +to ; 


{ check the values of nesting } 

{ and state ) 

{ if both nesting and state are } 

{ 0, we are starting the compilation ) 
{ of a control structure which is to ) 
{ be executed interactively } 

{ save away the address of the ) 

{ start of the interactive code ) 

{ lay down b 'jump to the nesting ) 

( routine’ instruction at the start ) 

{ of the interactive code ) 

( always increment the contents of ) 

( the nesting system integer ) 


unnest 

unnest is the complement of the word nest : 

: unnest { - } 

local oldhere 
local size 

-I nesting +to ( decrement the nesting value ) 
nesting state or 0= 

if (if the contents of nesting have ) 

( been reduced to zero and the ) 

( system is in the interpretation } 

( state, it’s time to execute the ) 

( temporary control structure code ) 


[compile] exit 



bound 

oldhere 

to 

( get the address of the start of ) 

{ the temporary code } 

here 

oldhere 

- 

size 

to ( determine the size } 





( of the temporary ) 

( code ) 

oldhere execbuf 

size 

cmove ( move the code to ) 





( the execution ) 

{ buffer ) 

oldhere here 

to 

( 

move the here pointer back so ) 




( 

the temporary code will be ) 




( 

overwritten in the dictionary ) 

execbuf 


( 

get the address of the execution ) 




( 

buffer ) 

size 

execbuf 

+ to ( 

temporarily move the start of the ) 




( 

execution buffer to the location ) 




( 

just past the current temporary } 




( 

code ) 

goto 



( 

execute the code at the execbuf ) 




( 

address, the temporary code ) 

size 

negate 

execbuf 

+to { set the start address of ) 


( the execution buffer back to its ) 
( original address ) 


then ; 
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unnest will always decrement the contents of the nesting system 
integer. Then, if nesting has been reduced to zero and state 
holds a zero, the code between the if and the then in 
unnest will see to it that the temporary code is executed. Note 
that after the code has been copied up to the execution buffer 
the here pointer is moved back to the position it held before 
the start of the temporary compilation process. This ensures 
that the code area does not become cluttered with unused code, 

goto is used by unnest to directly execute the code located 
starting at the execution buffer address: 

: goto { a - } 

[*] temp +table 


temp 


The code which temp points to must end with a next in order to 
properly terminate execution. 

Compilation of Program Control Structures 

The if,.,then Control Structure 


! { borrow temp’s token table entry } 
( put the address of the code to ) 

( be executed in its token table } 

( field ) 

{ now execute temp } 


Here is the definition of the word if : 


: i f ( * a n ) 

nest 

compile <Obran> 
here 

0 c, 

2 ; 
immediate 


( add one to the nesting level ) 

( compile the <Obran> token ) 

( return the address where <Qbran>’s ) 
{ branch data should be located ) 

{ reserve a spot for <Obran> f s data ) 

( 2 means ’if.,.then’ structure ) 

{ immediate means if is executed ) 

{ at compile time } 


if increments nesting ( compiles the token for <0bran> t and 
compiles a byte length zero spacer in the location where 
<Obran> 1 s data will later be placed, if leaves the address of 
the <0bran> data location and a 2 on the parameter stack during 
compilation. The 2 indicates that the next piece of data on the 
parameter stack belongs to an ’if,,,then' control structure, 

else is used to mark the end of the if code and the start of 
the else code in an 1 if,,,else.,.then 1 program control 
structure, else has three compile time duties. First it must 
verify that if was used previously. To perform this function 
else searches through the parameters on the stack. If it 
encounters a , which identifies while or leave data, it 
moves both the identifier and the associated data over to the 
return stack. As soon as else has removed all while or 
leave data from the parameter stack it expects to find the T 2* 
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which identifies if data- If else does not find the T 2* ’if f 
data identifier at this point, a program control structures pair 
mismatch has occurred and the system will abort* 

Once else has found the if identifier it can perform its 
remaining two duties* First, else must compile an 
unconditional branching primitive (<bran>) and a byte-length ’O’ 
branch data spacer at the end of the if code- At execution 
time, this unconditional branch will terminate execution of the 
if code by routing execution past the else code to the code 
which immediately follows the then (see the previous diagram 
for pcs3). Next, else must calculate and baekpatch the branch 
data for if so that the if branch points to the start of the 
else code* Because else did find the ’2* on the stack, it 
knows that the next address on the stack is the if data, the 
address where the if branching data should be stored* else 
uses back to calculate the distance between this data location 
and the start of the else code and to insert the delta branch 
distance into the <0bran> data spot: 

: back { a - ) 

here over - ( calculate delta distance ) 

dup -80 7F inrange not ( make sure data is in the byte ) 

( range ) 

abort" use long branch" ( abort if delta is too large } 
swap c! ; ( store delta in correct spot ) 

else’s final actions are to leave the address of its branch data 
location and a V2 T 'if,.else*- then f control structure identifier 
on the parameter stack, and then to transfer any data left on the 
return stack back to the parameter stack* Here is the definition 
of else : 

: else ( a n 

0 >r 
begin 

dup 4 

while 

>r >r 

again 


2 ?pairs ( was there an if which matches ) 

( this else? } 


compile 

<bran> 0 

c. 

( compile an unconditional branch ) 




( 

and a byte length spacer ) 

back 



( 

baekpatch the previous if data } 

here 

1 - 

2 

( 

leave the address of the else ) 




( 

data and the ’if.,.then’ identifier ) 

begin 

r> 

?dup 

( 

move all of the leave and while ) 

while 

r> 


< 

data back to the parameter stack ) 

again 

* 

immediate 




{ put a marker on the return stack } 
( move all the leave and while } 
( data from the parameter stack ) 

( to the return stack ) 
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then is a simpler version of else . then is only responsible for 
cheeking for a previous if or else and backfilling the delta 
branch data for the previous if or else * then will also use 
back to take the data address left on the stack by if or else and 
to calculate the delta branch distance. If an else was used 
last, back will fill in the data for the <bran> token. If an if 
was used last, back will fill in the data for the <Obran> token. 
Since then closes the 1 if.,.then 1 and f if.»,else,..then 1 
program control structures, it uses unnest i 


then (an- 

) 


0 >r 
begin 


( put a marker on the return stack ) 

dup 

4 = 

= ( move all of the leave 

and while data 

while 


( from the parameter stack 

to the return ) 

r> 

again 

r> 

( stack ) 


2 ?pairs 


{ check for an 1 if,..else.,, 

then 1 pair match 

back 

begin 


( backpatch the previous if 
{ branching data ) 

or else ) 

r> 

while 

r> 

again 

?dup 

( move all of the leave and 
( back to the return stack ) 

while data } 

unnest ; 
immediate 


( we've just closed a program 
( structure so unnest... ) 

control ) 


The do,,,loop Control Structure 

Return Stack Usage 

During the compilation of colon definitions, the system integer 
loops is used to keep track of the 1 do...loop 1 return stack 
usage for the definition. Whenever a Mo...loop 1 is started, 12 
decimal is added to the contents of loops {each 'do.,loop 1 uses 
12 bytes of return stack space during execution: 4 for the 
Mo,,.loop T start address, 4 for the limit value, and 4 for the 
loop count value). Whenever a Mo,,,loop 1 is terminated, 12 
decimal is subtracted from the contents of loops . 

The Mo.*.loop 1 return stack usage is monitored because two other 
words, doloc and exit are very return-stack-usage dependent, 
doloc , described previously, is the word responsible for 
compiling references to local variables. Local variable storage 
space is kept on the return stack and is located using an offset 
from the current top of the return stack. 

Although each local variable "tells" doloc what its storage 
location offset into the return stack should be, doloc will 
check the contents of loops to determine if the offset needs to 
be adjusted to account for extra Mo...loop' data which will be 
on the return stack {see the listing for doloc in the technical 
local variable discussion) at execution time. 
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exit is a word which may be used at any time to unconditionally 
terminate execution of the current colon definition. If the 
colon definition uses local variables or 1 do,,.loops 1 , exit is 
responsible for proper clean-up of the return stack so that the 
return information required upon exit from the definition may be 
accessed. 


: exit { - ) 

locals loops 

?dup 

if 

compile 

c, 


else 


+ ( does this word use the return ) 

{ stack? ) 

{ if it does, compile a special form 
<exitlp> { of exit which knows how to ) 

{ clean up the return stack ) 

{ compile the number of return ) 

( stack bytes which are used by } 

( this word ) 


compile <exit> 
then ; immediate 


( otherwise, compile the normal } 
( exit ) 


) 


do, loop, and +loop 

The word do performs four compile time actions. First, since it 
is a word which starts a new program control structure, it uses 
the word nest . Second, since it requires 12 decimal bytes of 
return stack storage space, it increments the contents of loops 
by 12. Next, it compiles the token for <do> . Finally, it 
places the contents of the nestype system integer on the 
parameter stack, places the ’do...loop 1 identifier, ’3 1 » on the 
parameter stack, and places a f ~l T in nestype 


nestype is a system integer which holds a value which 
distinquishes between 1 do...loops 1 {-1) and 'begin 1 loops (0). 
Since 'do...loops' and ’begin 1 loops perform many similar compile 
time activities, tForth conserves code space by sharing compiling 
words between the two control structures. Since the shared words 
must still perform some loop-specific actions, the nestype 
integer is used to indicate which type of loop is currently being 
compiled. 

loop and +loop 

{loop} is used by all program control words which terminate 
program control structures ( loop , +loop , again , until 
}. {loop} is passed two parameters, the structure identifier 
value for the type of structure being compiled (3 for 
1 do...loops 1 and 1 for 'begin 1 loops), and the token for the 
control structure primitive compiled by the word which called 
{loop} (loop compiles <loop> , + loop compiles <+loop> , 

again compiles <bran> , until compiles <0bran> }. The 
structure identifier value is stored in the system integer 
tempO > The token value is stored in the system integer tempi 
(because the program control structures compiling words make 
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extensive use of the return stack they cannot use local 
variables)* The main actions of both loop and *loop are 
performed by the shared compiling word {loop} as follows: 


loop { nl n2 n3 n4 ~ ) 


tempO 

to 

( 

get the token from the stack ) 

tempi 

to 

< 

get the identifier from the stack ) 

0 >r 


( 

put a marker on the return stack ) 

begin 

dup 4 = 

( 

move all of the leave and while 

while 


( 

data to the return stack ) 


swap 

( 

swap the data during transfer so ) 


>r >r 

( 

that the identifier is on top of the 

again 


( 

address ) 

tempi 

?pairs 

( 

check for a pair mismatch } 

tempO 

c. 

( 

compile the token for this type ) 



( 

of looping structure } 

tempG 

[ f ] <bran> 

= 

( again compiles a <bran> .* * ) 

tempi 

[ 1 ] <0bran> 

= 

{ until compiles a <0bran> 

or 


( 

is this an again or until? } 

if 


( 

If it is, fill in the required ) 


here - c, 

c 

branch data ) 


then 


nestype to 

begin 

r> 

while 

here r@ 
r> c! 
again ; 


( restore the previous nestype ) 

( value, left on the stack by either ) 

( do or begin ) 

( is there any leave or while ) 

{ data on the return stack? } 

{ if there is, calculate and backfill ) 
( the leave or while branching ) 

( data } 


After {loop} moves all leave and while data to the parameter 
stack it compares the structure identifier passed in on the 
parameter stack to the structure identifier stored in tempo to 
see if a pair mismatch has occurred* If all control structures 
are matched up properly {loop} will compile the token held in 
tempi and, if the token compiled was the token for <bran> or 
CObran> , the delta branch data will be calculated and compiled* 
Next, the loop type is restored by storing the loop type value 
left on the stack by a previous do or begin into nestype . 

The final action of {loop} involves backfilling the delta 
branch data information for all unresolved leave and while 
tokens* Both leave and while compile branches to a location 
just outside of the current program control structure* Since 
this location cannot be determined until the program control 
structure has been closed, {loop} , which is only called by 
words which close program control structures, is used to perform 
this function* 
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begin, again, until 

begin is a much simpler version of do: 

: begin (-an) 

nest ( indicate that a new program control ) 

( structure is being compiled } 
here 1 ( leave the address of the start of the ) 

( 1 begin 1 loop code and a ’begin 1 loop ) 

( identifier ) 

0 nestype to ( store the 1 begin ' loop type identifier ) 
( into nestype ) 

; immediate 

begin calls nest , leaves the address of the start of the ’begin 1 
loop and a to identify the 'begin* data, and sets nestype 
to ’O’ (identifies ’begin 1 type loops}, 

again and until are also very straightforward control structure 
operators, again always takes an unconditional branch back to 
the start of the loop: 

: again ( n a 

1 

['] <bran> 

{loop} 
unnest 
; immediate 

again expects the 'begin 1 structure identifier and the address of 
the start of the ’begin 1 loop to be somewhere on the parameter 
stack when it is called, again will pass an additional 'begin 1 
structure identifier, and the token for the unconditional 

branching primitive <bran> to {loop} , {loop} will compile 
the <bran> token, and calculate and compile the delta distance 
between the <bran> token and the start of the ’begin 1 loop. 

The only difference between until and again is that until 
causes a conditional branch to the start of the loop to be 
compiled: 

: until ( n a - ) 

1 

[ ’ ] <0bran> 

{loop} 
unnest ; 

while and leave 


( pass the ’begin 1 structure identifier } 

{ and the token for the primitive compiled ) 

( by again ... ) 

( ., .to {loop} ) 

( this is the end of the structure so unnest ) 


while and leave are used to conditionally or unconditionally exit 
from the current loop control structure: 

: while ( - ) 

[ f ] <Obran> { while compiles <0bran> if it is used ) 
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[ 1 ] <Gleave> 

{while} 

; immediate 


( inside of a ’begin 1 loop ) 

( while compiles <01eave> if it is used ) 
( inside of a ’do’ loop ) 

{ {while} makes the decision ) 


leave ( 

- ) 


['] 

<bran> 

( leave compiles <bran> if it is used ) 

( inside of a ’begin 1 loop ) 

[*] 

<leave> 

( leave compiles <leave> if it is used ) 

( inside of a ’do’ loop ) 

{while} 

immediate 

( {while} makes the decision ) 

{while} 

( nl n2 - ) 

nestype 

if 

swap 

then 

{ is this a ’begin 1 loop or a r do f loop? ) 

{ if its a ’do’ loop, dispose of the second 
{ token on the stack, the second token ) 

{ is the token to be used inside of ’begin’ 

drop 

c, 


( loops ) 

( compile the remaining token ) 

here 

4 

( leave the address of the branching data } 

( for the compiled branching primitive and ) 
{ leave a while / leave data identifier } 

0 c, 

i 

{ compile a byte length spacer for the ) 

{ while or leave data ) 


If while or leave are used inside of a ’begin 1 loop either a 
conditional or unconditional branch out of the loop will be 
compiled. If while or leave are used inside of a ’do* loop a 
conditional or unconditional branch out of the loop with return 
stack clean up will be compiled. The word {loop} , described 
above, is used to backfill the branching data for while and leave 


Some Notes on Initial Program Control Structures 

Any number of tForth control structures may be nested within a 
program control structure. The program control structures 
described only support branches up to 25 & bytes in length (short 
branches). They are currently being modified to support branches 
which are up to 3^K bytes in length {word branches)* See below. 


Program Control Structures Which Support Byte and Word Length 
Branching 

These 13 words are used to implement the new program control 
structures: 


If backelse {elsethen} else then 

{while2} while leave 

{loop2} until again loop +loop 
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if. else... then Control Structure Words 


Only the T if * *.else.*.then’ program control words can cause code 
movement to occur. The word if will always leave a single byte 
spacer for its associated data. If else or then later 
determine that the code between the if and the else , or 
between the if and the then take up more than JF hex bytes, 
the if data space will have to be expanded to word length. The 
code between the if and else or between the else and then 
will have to shifted one byte towards higher memory, if 
temporarily stores ;he byte length hexadecimal code FF in its 
data area during compilation. This code is used to inform else 
and then that the data are belongs to an if. 

The new version of if is very similar to the previous version. 

The only difference is that the new version leaves a hex FF f 
rather than a 0, in its byte length data area. 

else always leaves a 2-byte spacer for its associated data, else 
temporarily stores the offset back to the if data in this 2-byte 
space during compilation. If the offset back to the if data area 
is short, the first byte in the else data area will be the 
hexidecimal code FE and the second byte will be the byte length 
offset. If the if offset is long, greater than 7F hex bytes, the 
entire word offset is stored in the else data area. If else 
determines that the offset back to the if data is greater than 
hex 7F bytes, it will shift the code between the if and else by 

one byte to make room for 2 bytes of if data, store the word 

length delta branching distance in the enlarged If data area, and 
will change the <0bran> instruction compiled by if to a <0branl> 
Instruction, 

If then is used after if ( with no intermediate else , then 
performs functions which are very similar to else . If the 
distance between the if and the then is less than JF hex bytes, 

then will simply store the delta distance in the if data area. 

If the distance is greater than 7F hex bytes, then will shift the 
code between the if and the then up in memory by one byte, store 
the word length delta branching distance In the if data area, and 
will replace the <0bran> token with the token for <0branl>. 

If then is used after else it will first calculate the distance 
between the start of the else data area and the then destination 
point. If this distance is short, then will store the byte 
length branching distance in the first byte of the two byte else 
data area and then will move the code between the else and the 
then down in memory by one byte to recover the second unused byte 
of the else data area. Before performing this code movement, 
then will snake back up to the if data area, using the offset 
stored temporarily in the else data area, and reduce the if 
branching distance by one byte (since the start of the else code 
is to be moved down in memory by one byte). If the distance 
between the else and then is long, then will store the word 
length delta branching distance directly in the word length else 
data area and will change the <bran> token to a <branl> token. 
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felsethen} 


Since else and then perform many similar functions, a common 
lower level word {elsethen} has been defined to conserve program 
space, {elsethen} performs three major actions. First, it 
transfers all of the leave and while data to the return stack. 
Next, it takes care of all if or else backpatching and code 
movement. Finally, it takes the leave and while data off of the 
return stack and adjusts the addresses as necessary. The 
backpatching code will return a 1 +i f value if the code had to be 
moved towards higher memory, a T -l t if the code had to be moved 
towards lower memory, or a t 0 t if the code was not moved, 
{elsethen} will use this value when it adjusts the leave and 
while addresses, {elsethen} is passed a flag which tells it which 
conditional word, else or then , is using it* 

baekelse 


backelse is a word used by {elsethen} when backpatching else data 
is required- 

begin and do Loop Structures 

The words begin , again , until , loop , and ♦loop have only been 
modified so that they use the newer versions of the words 
{while} and {loop}. 

while and leave now always use a 2-byte branching distance, 
until and again will use either a byte or 2 byte branching 
distance, 

Size Considerations 


There are currently approximately 160 uses of while and 20 uses 
of leave in the Cat code. Use of these new program control 
structures will cause these words to use 3 bytes of code space 
each rather than the 2 bytes of code space they each used 
previously so the code space will increase by 180 bytes. 

The code used to implement these new versions of the control 
structures is 280 bytes larger than the older control structures 
code. 

Therefore, these modifications will cause the Cat program to take 
up 480 more bytes of program space. 
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THE tFORTH 68000 ASSEMBLER 


INTRODUCTION 

This section of the manual will explain the syntax and usage of 
the tForth 68000 assembler. The architecture, addressing modes, 
and instruction set of the 68000 microprocessor will be discussed 
briefly. For more detailed information on the 68000 
microprocessor please refer to the Motorola Microprocessor 
Reference Manual, 4th Edition, 

Any differences between the standard Motorola-format 68000 
assembler syntax, as presented in the examples in the Motorola 
Microprocessor Reference Manual, hereafter referred to as the 
M68Q0Q manual, and the syntax required by the tForth assembler 
will be noted in the text. 
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BRIEF OVERVIEW OF THE 68000 MICROPROCESSOR 

Internally, the 68000 has 32-bit data and address paths. 
Externally the 68000 has 16 data lines and 24 address lines. The 
24 external address lines allow the 68000 microprocessor to 
directly access 16 megabytes of address space. 

Execution Environment 


The 68000 executes in one of two 'modes’: user mode and 
supervisor mode, "Cat” code always executes in supervisor mode* 
In user mode a program is only allowed to execute a subset of the 
available 68000 program instructions- The prohibited 
instructions are those which are usually used by systems level 
software. 

The diagram on the following page shows that eight 32-bit data 
registers, eight 32 -bit address registers, a 32 -bit stack 
pointer, a 32 -bit program counter, and a 8-bit condition code 
register are available during user mode program execution. 

In supervisor mode the 32-bit supervisor stack painter and the 
16 -bit status register (an extension of the 8-bit condition code 
register) are also available. 

Data Registers 

Each data register supports data operands of 1, 8, 16, or 32 
bits. Byte operands occupy the low order 8 bits, word operands 
the low order 16 bits, and long word operands the entire 32 
bits. The least significant bit is addressed as bit zero; the 
most significant bit is addressed as bit 31* When a data 
register is used as either a source or destination operand, only 
the appropriate low order portion is changed; the remaining 
high-order portion is neither used nor changed (i.e, if a data 
register is used to hold a byte sized operand, only the lower 8 
bits of the data register are affected by the operation). 

Address Registers 

All address registers and both stack pointers are 32 bits wide 
and hold full 32 bit addresses. Address registers do not support 
byte sized operands. Therefore, when an address register is used 
as a source operand, either the low order word or the entire long 
word operand is used depending upon the operation size. When an 
address register is used as the destination operand, the entire 
register is affected regardless of the operation size. 
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68000 Execution Environment 


User 

Programmer 

Execution 

Environment: 


31 1615 8 7 0 

DO 
D 1 
D 2 
D 3 
D 4 
D5 
D 6 
D 7 


AO 
A 1 
A 2 
A3 
A 4 
A 5 
A 6 

A 7 


PC 


OCR 



Supervisor 

Programmer 

Execution 

Environment: 


31 


1615 


8 7 


•tfy 

_JL. 


A7* 


15 

8 7 0 

' 

.. 


SR 


Data 

Registers 


Address 

Registers 


User Stack 
Pointer (USP) 

Program 

Counter 

Condition 
Code Register 


Supervisor 
Stack Pointer 

Status 

Register 



























































THE 68000 INSTRUCTION SET 


The 68000 instruction set allows the following eight types of 
operations to be performed: 

OPERATION INSTRUCTION (tFORTH ASSEMBLER) 


Data Movement 

exg, 

lea. 

link. 


unlk, 

movem, 

movep 


moveq, 

swap, * 

move, 

pea, 

Integer Arithmetic 

add, 

addx, 

addi, 


addq ( 

clr t 

emp. 


cmpa, 

divs, 

divu, 


ext, 

muls, 

mulu. 


neg. 

negx, 

sub. 


subi, 
tas, 

subq, 
tst, 

subx, 

Logical 

and. 

andi, 

or. 


ori, 
not. 

eor, 

eori, 

Shift and Rotate 

asr. 

asl, 

Isr, 


Is 1, 
ror. 

roxr, 

ror, 

roxl, 

Bit Manipulation 

bchg, 
btst, 

bclr, 

bset, 

Binary Coded Decimal 

abed, 

sbed, 

nbed. 

Program Control 

bra. 

bsr. 

dbra. 


jmp, 

jsr. 

rtd t 


rtr. 

rts. 

set. 

System Control 

rte. 

reset, 

stop, 


trapv. 

chk, 

trap, 


Note: The 68000 instruction names used in the tForth assembler 
are very similar to those presented in the M 68 OOO manual. The 
only differences are that in the tForth assembler the instruction 
names must be written in lowercase and must be immediately 
followed by a comma. 
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USING THE tFORTH ASSEMBLER 


tForth Assembler Syntax 

The tForth assembler, unlike the Motorola assembler, uses a 
postfix syntax. This means the operands precede the instructions, 

sp )+ dO -1 move, 

<operands> <instruetion> 

(or, more specifically) 

sp ) + dO . 1 move, 

<source> <destination) <instruction> 

the register/data specifications precede the address mode 
specification, 

sp ) + 

<register/data specification> <address mode specification)^ 

and the instruction sifce precedes the instruction; 

.1 move, 

<size> <instruetion> 

Code Definitions 


In most FORTH implementations, a FORTH definition is composed of 
intermediate threading information (FORTH instructions) instead 
of directly executable machine code instructions. The term ’code 
definition 1 is used to refer to those definitions which consist 
of machine code instructions. 

The word code is used to create named tForth assembly 
definitions, code (i) creates a name in the dictionary for <name> 
{so that the code definition can be found in the future}, (ii) 
tells the system that all subsequent words should be compiled 
rather than executed, (iii) and puts the assembler vocabulary 
asm68 {the vocabulary which contains all of the assembler 
instructions) first in the search order. 

Here is an example of a tForth code definition: 


swap 

( 

nl 

n2 - n2 

nl 

Swaps the top two stack items, ) 

sp 

)+ 

dO 

move, 

< 

take n2 off of the stack and 

put ) 





{ 

it in the dO register } 


sp 

)+ 

dl 

move, 

( 

take nl off of the stack and 

put ) 





{ 

it in the dl register ) 


dO 

sp 

-) 

move, 

( 

put the contents of the dO ) 






{ 

register on the stack } 


dl 

sp 

-) 

move. 

( 

put the contents of the dl ) 



( register on the stack ) 

next; { end this assembly routine ) 
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The standard formats for a code definition are: 


code 

<name> 

. next; 



code 

<name> 

... next, » * * 

next. 

, ,. next; 

code 

<name> 

... ;c 



code 

<name> 

... next* # • * 

next* 

, * * ;e 


The word next; ('next-semi-colon*) inserts an instruction into 
the code definition which during execution will (i) help the 
interpreter switch between the execution of machine language 
instructions and the exection of FORTH instructions, {ii) check 
the return stack to make sure it has not been corrupted* and 
(iii) remove asm68 from the search order, next; and next, 
('next-comma 1 , described below} are used in code definitions that 
are called from FORTH and return to FORTH when they terminate 
execution * 


The word next, is used when more than one exit from a code 
definition is required, next, is similar to next; in that it 
also inserts a 'return to FORTH' instruction into the code 
definition being constructed, next, does not check the return 
stack or remove the assembler vocabulary from the search order. 


The word ;c { 1 semi-coion-c 1 ) is used in code definitions which 
do not exit at the end or in code definitions which should not 
return to FORTH after execution of the code definition terminates 
(perhaps a code definition which is called from another code 
definition instead of called from FORTH). ;c (i) checks the 
return stack and (ii) removes the assembler vocabulary from the 
search order. The word next; is defined: 


: next; ( 
next* 

• p ■ 
■ ^ * 


{ compile an 'exit to FORTH 1 instruction ) 
( check the stack and deactivate asm68 ) 


Creating Unnamed Assembly Code Fragments 

The tForth assembler also includes provisions for the creation of 
assembly language code fragments. A code fragment is an assembly 
language routine which has no dictionary entry, and thus cannot 
be referenced by name. A common format for the use of code 
fragments is shown below: 

frag <integername> to ... e; 

frag puts the address where the first instruction in the code fragment 
will be located on the stack. The sequence 1 <integername> to 1 , although 
not required, is usually used to save the address of the code fragment 
away for future reference, c; is used to terminate a code fragment. 

Note: A tForth code definition {a set of assembly language 
instructions) must always be preceded by either code or .frag 
and must always be followed by either next; or ;c 
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SPECIFYING ASSEMBLER OPERANDS 


A complete assembler instruction consists of a 68000 assembly 
instruction and the source and/or destination operand on which 
the instruction will operate. A complete assembler source or 
destination operand consists of a register or data specification 
and an addressing mode specification. 

Register Specification 

The following symbols are used in source and destination operands 
for register specification in both the tForth assembler and in 
the M680G0 manual: 


SYMBOL 


MEANING 


an 

dn 

rn 

pc 

sr 

ccr 

sp 

usp 

ssp 


Address register, 'n f specifies the register number 
Data register, 'n' specifies the register number 
Address or data register, 'n' specifies register # 
Program counter 
Status register 

Condition code half of status register 
Active stack pointer (user or supervisor) 

User stack pointer 
Supervisor stack pointer 


d8 

dl6 

d32 

XX XX 

addrl6 

addr 32 


8 bit displacement (-80...7F hex) 

16 bit displacement (-8000.*.7FFF hex) 

32 bit displacement (-8000000..-7FFFFFFF hex) 
Number, size determined by instruction size. 
16 bit address. 

32 bit address. 


SPECIAL NOTE: During execution, tForth uses certain 68000 
registers for special purposes. For code readability, the 
following registers have been assigned special symbols which are 
recognized by the tForthassembler (the usage of these registers 
is explained in more detail in the compilation discussion 
included in the technical reference section of this manual): 


REGISTER 

SYMBOL 

CONTENTS 

d7 

bp 

Address of the base of the token table. 

d6 

iv 

Address of the value of the current integer. 

<35 

SB 

Zeroth nesting starting address. 

d4 

ct 

Address of the current token. 

a7 

sp 

Parameter stack pointer. 

a 6 

rp 

Return stack pointer. 

a5 

ip 

Interpretation pointer. 

a4 

nx 

Next pointer. 

a3 

np 

Nest pointer. 

a2 

vp 

Pointer to the code for integer 
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In the swap code definition presented at the start of this 
discussion the symbols T d0’ and f dl f were used to specify data 
register zero and data register one and the symbol 'sp' was used 
to specify the stack pointer (the parameter stack pointer in 
tForth)* 

Address Modes 


Address modes are used to specify the location of instruction 
operands or data to the microprocessor* The 68000 supports 12 
address modes. The table below lists each of the 12 address 


modes and the Motorola and tForth 
address mode: 


# 

MOTOROLA SYNTAX 

tFORTH SYNTAX 

1. 

Dn 

dn 

2. 

An 

an 

3. 

(An) 

an ) 

4, 

(An) + 

an ) + 

5- 

-(An) 

an -) 

6. 

dl6(An) 

an dl6 )d 

7. 

d8(An,Rn.W) 

an rn.w d8 


d8(An.Rn.L) 

an rn.l d8 

8. 

xxx. W 

addrl6 

9- 

xxx. L 

addr32 

10. 

dl6{PC) 

dl6 pc)d 

11. 

dl6(PC,Rn.W) 

rn,w dl6 pc 


dl6(PC,Rn.L) 

rn.l dl6 pc 

12. 

#xxxx 

xxxx #n 


assembler syntax used for each 

DESCRIPTION 

Data register direct. 
Address register direct. 
Address register indirect. 
Address register indirect 
with postincrement. 

Address register indirect 
with predecrement. 

Address register indirect 
with displacement. 
xw}d Address register indirect 
xl)d with index. 

Absolute short address. 
Absolute long address. 
Program counter with 
displacement. 

xw)d Program counter with index, 
xl )d 

Immediate data. 


Examples 

Since the 68000 'move 1 instruction allows its source operand to 
be specified with the use of any of the address modes listed 
above, it is a good instruction to use when providing examples of 
the usage of the address modes {the source operand is the 
leftmost operand in the tForth assembler syntax): 


Address 

mode 

#1 

dO 




sp 

)+ 

.1 

move, 

Address 

mode 

M2 

aO 




sp 

)+ 

.1 

move, 

Address 

mode 

M 3 

aO 

) 



sp 

)+ 

.1 

move t 

Address 

mode 

#4 

aO 

> + 



sp 

)+ 

.1 

move, 

Address 

mode 

M5 

aO 

-> 



sp 

)+ 

.1 

move, 

Address 

mode 

M 6 

aO 

4 

)d 


sp 

) + 

.1 

move , 

Address 

mode 

Ml 

aO 

d2 

4 

xw)d 

sp 

)+ 

.1 

move t 

Address 

mode 

MB 

7ce0 



sp 

)* 

.1 

move * 

Address 

mode 

#9 

420000 



sp 

)+ 

.1 

move t 

Address 

mode 

#10: 4e0G pc)d 


sp 

)* 

.1 

move, 

Address 

mode 

#11: d4 

7F8 

pc 

;, xl) d 

sp 

)+ 

.1 

move, 

Address 

mode 

#12: 

400 

#n 

sp 

)+ 

.1 

move t 
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Address modes 1 and 2 are ’register direct addressing modes 1 . 
These addressing modes are used when the operand is in either an 
address or data register* 

Address modes 3 through 7 are ’memory address modes’* These 
address modes are used when the operand is located somewhere in 
memory. These address modes are evaluated to produce the address 
in memory where the operand is located* 

Address modes 8 and 9 are used when the address of the operand is 
specified explicitly to the instruction* 

Address modes 10 and 11 are special versions of the ’memory 
address modes’* Although they function similarly to address 
modes 6 and 7* ti oy are put in a special class because it is 
assumed that these addressing modes will be used to access 
locations in the program code area rather than in the program 
data area* 

Address mode 12 is used when the operand is specified explicitly 
to the instruction. 

For more detailed information on how address modes are evaluated, 
please refer to the ’Program/Data References 1 {section 2,7) of 
the M68000 manual* 

Address Mode Categories 

Certain 68000 instructions can only use a subset of the available 
addressing modes- On the individual instruction glossary pages 
in the M68O0O manual, the following classifications are used to 
categorize the addressing modes which a particular instruction 
may use: 

1* DATA ADDRESSING ADDRESS MODES 

If an effective address mode may be used to refer to 
data operands, it is considered a data addressing 
effective address mode. 


dn 

an ) 


an } + 

an -) 


an dl6 )d 

an rn.w 

d8 xw)d 

an rn,l d8 xl)d 

addrl6 


addr 32 

dl6 pc}d 


rn,w dl6 pc,xw)d 

rn.l dl6 

pc,xl)d 

xxxx #n 
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2 . 


MEMORY ADDRESSING ADDRESS MODES 


If an effective address mode may be used to refer to 
memory operands* it is considered a memory addressing 
effective address mode. 


an ) 


an ) + 


an -) 


an dl6 

)d 

an rn.w 

d8 xw) d 

an rn.l 

d8 xl)d 

addrl6 


addr 32 


dl6 pc)d 


rn.w dl6 

pc ,xw)d 

rn,l dl6 

pc,xl)d 

xxxx #n 



3* ALTERABLE ADDRESSING ADDRESS MODES 

If an effective address mode may be used to refer to 
alterable (writable) operands, it is considered an 
alterable addressing effective address mode. 


dn 

an 



an } 

an 

> + 


an -) 

an 

dl6 

)d 

an rn.w d8 xw)d 

an 

rn. 1 

d8 

addrl6 

addr32 



4. CONTROL ADDRESSING ADDRESS MODES 

If an effective address mode may be used to refer to 
memory operands without an associated size, it is 
considered a control addressing effective address mode, 


an ) 


an dl6 ] 

Id 


an rn.w 

d8 xw)d 

an rn.l 

d8 

xl )d 

addrl6 


addr32 



dl6 pc}d 
rn.l dlo 

pc,1)d 

rn.w dl6 

pc 

,xw)d 


Operand Size 

The size of the operand to be used by a 68000 instruction can be 
specified with the use of the assembler words ,b , ,w , and 
,1 . ,b means the source and destination operands are 1 byte 

in size, . w means the source and destination operands are 2 
bytes in size. .1 means the source and destination operands are 
4 bytes in size. If no operation size is specified, the 
assembler assumes the operands are 4 bytes in size. 


HOW 

OPERAND 

SIZE AFFECTS REGISTER OPERATIONS 


dO 

dl 

,b 

move T 

( Move the lowest order byte 

Of } 





( register dO to register dl, 

. ) 

dO 

dl 

. w 

move. 

( Move the lowest order word 
( register dO to dl. ) 

Of ) 

dO 

dl 

.1 

move. 

( Move the entire 4 bytes in 
( to register dl* ) 

register dO 

dO 

dl 


move. 

( Same as * .1 move, 1 . } 
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How Operand Size Affects Memory Operations 


al ) dl ,b move* ( Move the byte of data located at } 

{ address al into the lowest order ) 

( byte of register dl* ) 

al ) dl ,w move* { Move two bytes of data into register dl* ) 

( The byte at address al goes into the ) 

( second lowest order byte in dl and the ) 

{ byte a address al+1 goes into the lowest ) 
{ order byte of dl, ) 

al ) dl ,1 move, { Move the four bytes located in memory ) 

{ starting at address al into the dl ) 

{ register- The byte at al goes into the } 

{ highest order byte of dl and the byte ) 

{ at address al + 3 goes into the lowest ) 

{ order byte of dl, } 
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STRUCTURED ASSEMBLY LANGUAGE PROGRAMMING SUPPORT 


The tForth assembler allows special versions of the conditional 
and indefinite looping high-level FORTH program control 
structures to be included in assembly language code definitions. 
The assembler versions of the program control structures make 
decisions based on the microprocessor condition code state* 

The Condition Code Register 

The 'condition code register 1 (ccr), which is located in the 
lower order byte of the status register {see diagram on the 
following page), holds the condition code information* The 5 
bits which represent the five possible condition codes (negative, 
zero, overflow, carry, and extend) are also shown* Certain 680 G 0 
instructions modify the condition codes to reflect the outcome of 
their operation. The condition codes can be combined, or used 
individually, to perform the following conditional tests: 

tFORTH CONDITION CODE SYMBOL CONDITIONAL TEST 


tr 

nt 

hi 

Is 

nc 

cs 

ne 

eq 

nv 

vs 

Pi 

mi 

ge 

It 

gt 

le 


always true 

always not true or false 
high 

low or same 

carry clear, no carry 

carry set 

not equal 

equal 

overflow clear, no overflow 

overflow set 

plus 

minus 

greater or equal 
less than 
greater than 
less or equal 
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Using Conditional Test Structures in Assembly Language Words 


The 'if...else... then' conditional program control structure has 
the following format when used in code definitions: 

cc if * ... then, 

cc if* *.. else *.* then. 

The 1 cc* is used to denote a condition code symbol. The word @ 

, which is used to fetch a four byte value from a memory 
address, is a tForth code definition which uses the ’if,.,.then, r 
assembly language program control structure: 


code 

e ( 

a 

- 

n 

} 




sp 

) 

aO 


move. 


( 

put address in the aO register ) 

aO 

dO 


. w 

move, 


( 

move the lower word of the address ) 








{ 

into the dO register ) 

1 

#n 

dO 

-b 

lsr, 


( 

shift the least significant bit out of } 








{ 

the dO register and into the condition ) 








( 

code ’carry* bit ) 

cs 

if. 






( 

IF the bit was a T, the address was ) 








{ 

odd so the long word must be fetched ) 








{ 

one byte at a time) 


aO 

) + 

sp 

) 


.b 

move, ( if the condition was met ) 


aO 

> + 

sp 

1 

}d 

,b 

move, ( these instructions will be ) 


aO 

) + 

sp 

2 

) d 

.b 

move, ( executed. ) 


aO 

> + 

sp 

3 

)d 

.b 

move. 


next 






( 

intermediate exit to FORTH ) 

then, 






( 

if the condition was not met above ) 








( 

the next instruction will be executed } 

aO 

) 

Sp 

) 


move, 

( 

move 4 bytes at once since data is on ) 








( 

even byte address ) 

next; 







( 

check return stack, deactivate ) 


( asm68 , and exit to FORTH ) 


All of the FORTH comparison operators also use the * if,...then, 1 
assembly language conditional program control structure. Here is 
the code definition for the word max : 


code 

max 

{ nl n2 

- n3 | 

Compare nl to n2, return 

the greater. 


sp 

)+ dO 

move, 

( 

get parameter ’ n2 ’ ) 



sp 

) do 

cmp. 

( 

subtract n2 - nl ) 



gt 

if. 


( 

IF the condition codes 

indicate that 





{ 

n2 is greater than nl, 

put n2 in } 





( 

the top stack position 

) 



dO sp ) 

move ( 





then, 


( 

otherwise, leave nl on 

top of stack ) 

next; 




( 

terminate code definition ) 
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Using Indefinite Loop Structures in Assembly Language Words 


The assembly language versions of the indefinite looping program 
control words are used as follows: 


begin, 
begin, 

..♦ again, 

, *, cc while. 


[ leave, ] . , , 

again. 

begin. 

... [ leave, 

] ... 

cc until. 


begin. 

... cc while. 


[ leave, ] .*. 

cc until, 

begin, 

... [ leave, 

] ... 

dn cc -until, 


begin, 

... cc while. 

* * • 

[ leave, ] ... 

dn cc -until. 


The words in square brackets { [ ] ) denote optional program 
control words which may be used. All of these constructs, except 
for the f begin,...dn cc -until’ construct, should be familiar, 
-until, is a special assembly language program control word 
which utilizes the 68000 T DBcc f {decrement and branch) 
instruction. -until, takes two inputs, a data register 
specification and a condition code specification. Each time 
through the loop, if the condition is NOT met, the contents of 
the specified data register will be decremented. A -until, 
loop will continue until either the count in the data register 
reaches -l t or until the condition is met. 


The tForth word fill uses a -until. 


loop: 


code 

fill 

( 

a n b 

} 


sp 

) + 

dO 

move. 

( put fill char in the dO register } 


sp 

) + 

dl 

.w move, 

( put high word of count in dl register 

} 

sp 

) + 

dZ 

.w move, 

{ put low word of count in d2 register ) 

sp 

) + 

aO 

move, 

{ put address in aO register ) 


0 


,b 

bra. 

( one-time branch down to the label 'O' 

) 


begin, ( perform outer loop until the upper ) 

{ word of the count is reduced to -1 ) 
begin, < perform inner loop until the lower ) 

{ word of the count, in d2, is -1 ) 
dO aO }+ ,b move, 

0 :1 ( create a label #0, discussed below ) 

d2 nt 
-until, 
dl nt 
-until, 
next; 


fill code definition demonstrates that assembly language program 
control structures may be nested, fill used nested loops 
because the ’DBcc 1 instruction can only work with a 16 bit count 
value in the data register. The nested loops allow the user to 
pass a 32 bit count value to fill * Since the nt condition 
code always evaluates to false, the -until, loop never 
terminates due to the condition code. When the nt condition code 
is used in an -until, loop, the loop will only terminate when 
the count in the data register is reduced to -1. 


- 156 - 





Labels 


Ten local labels are allowed within a single code definition. 

Labels are defined using ;1 : 

0 :1 
3 :1 

9 :1 

Labels are defined in the code definition at the spot which the 
label should mark* In the definition of fill above, a label 
was placed inside of the inner ’begin,. *,-until,' loop* 

The number passed to :! is used to identify the label* Label 
numbers must be between 0 and 9* Three 68000 instructions may be 
passed label numbers: bra, , bsr f , and cc bra, : 

2 :1 d3 clr, *,* 2 bra, { unconditional branch back to ) 

( the clr, instruction located at } 
( label 2 } 

2 :1 d3 clr, 2 eq, bra, ( conditional branch back to the ) 

( clr t instruction, branch only ) 
( occurs if the condition is met ) 

2 :1 d3 clr, *.* 2 bsr, { unconditional branch to a } 

{ subroutine ) 

2 bra, .** 2 :1 d3 clr, ( forward and backward branching are) 

( allowed ) 
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THE roovem, INSTRUCTION 

The 68000 movem, instruction is used to move multiple values to 
and from registers at once. For example, to move several 
registers onto the parameter stack: 

(regs d4 d5 d6 d7 a 3 a 5 a6 to) sp -) movem. 

To restore the contents of the registers from the parameter stack 

{regs d4 d5 d6 d7 a 3 a4 a5 a6 from) sp }+ movem. 
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tFORTH ASSEMBLER WORDS 


These are the available tForth assembler words (all are located 
in the asm68 vocabulary): 


#n 

{regs 

} 

)+ 

)d 

-) 

-until* 

.b 

.1 

,w 

: 1 

;c 

aO 

al 

a2 

a3 

a4 

a5 

a6 

a? 

abed , 

add* 

adda. 

addi. 

addq. 

addx. 

again. 

and* 

andi, 

asl, 

asr* 

bchg, 

bclr. 

begin, 

bp. 

bra. 

bset * 

bsr* 

btst, 

ccr 

ehk* 

clr. 

anp* 

cmpa, 

empi, 

coipoi. 

cs 

Ct 

dO 

dl 

d2 

d3 

d4 

d5 

d6 

ai 

dbra, 

divs, 

divu, 

else, 

eor, 

aori * 

eq 

exg, 

ext. 

from) 

ge 

gt 

hi 

If, 

ip 

iv 

jmp. 

jsr, 

le 

lea 

leave, 

link. 

Is 

Isl* 

1ST, 

It 

mi 

move, 

movem, 

roovep, 

raoveq. 

muls. 

mulu, 

nbed, 

nc 

ne 

neg* 

negx, 

next. 

nop* 

not. 

np 

nt 

nv 

nx 

or, 

ori* 

pc )d 

pc,xl)d 

pc , xw)d 

pea. 

Pi 

reset, 

rol, 

ror* 

roxl, 

roxr, 

rp, 

rtd, 

rte t 

rtr* 

rts * 

sa 

sbed. 

set * 

sp, 

sr 

stop, 

sub, 

suba, 

subi, 

subq. 

subx, 

swap, 

tas, 

then, 

to) 

tr 

trap. 

trapv, 

tst, 

unlk. 

until. 

usp 

vp 

vs 

while* 

xl)d 

xw)d 
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GLOSSARY {tFOPTH KERNEL WORDS ARRANGED BY FUNCTION) 


ARITHMETIC 


V 


*/mad 


-1 


/ 


/mod 


0 


1 


OPERATORS 

( nl n 2 - n 3 ) 

( 1 times 1 ) 

Multiplies nl # n2 and leaves the 32-bit result on top of 
the stack. 

{ ni n 2 n 3 - n4 ) 

( ' times-divide T ) 

First* nl is multiplied by n2, leaving a 64-bit intermediate 
result on the stack. The intermediate result is then divided 
by n3, leaving the 32-bit quotient, n4, on the stack. The 64-bit 
intermediate result allows this operation to respond with 
greater precision than the equivalent sequence: nl n 2 * n 3 / - 

{ nl n2 n3 - n4 n5 ) 

{ 1 times-divide-mod 1 ) 

First, nl is multiplied by n2, leaving a 64-bit intermediate 
result on the stack (the intermediate result occupies two 
stack positions). The intermediate result is then divided by 
n3, leaving the 32 -bit remainder, n4, and the 32 -bit quotient, n 5 , 
on the stack. 

( nl n2 - n3 ) 

( 1 plus 1 ) 

Adds nl plus n2 and leaves the 32-bit result on the stack, 

( nl n2 - n3 ) 

( 1 minus’) 

Subtracts nl minus n2 and leaves the 32-bit result on the stack, 

t - “1 ) 

('minus-one') 

Puts the commonly used constant value f -X T on top of the 
parameter stack. 

( nl n 2 - n 3 ) 

( 1 divide *) 

Divides nl by n2 and leaves the 32-bit quotient on the stack. 

( nl n 2 - n3 n4 ) 

{* divide-mod 1 ) 

Divides nl by n2 and leaves the 32-bit remainder, n3, and the 
32 -bit quotient, n4 t on the stack. 

( - 0 ) 

{ 1 zero ') 

Puts the commonly used constant ’O’ on top of the parameter 
stack. 

( - 1 ) 

Puts the commonly used constant f r on top of the parameter 
stack. 
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1 + 


1 * 


2 * 


2 + 


2 - 


2 / 


abs 


mod 


negate 


shl 


shr 


urn* 


( nl - n2 } 

{ 1 one-plus 1 ) 

Adds one to the number on top of the stack, 

{ nl - n2 ) 

{ 1 one-minus *) 

Subtracts one from the number on top of the stack, 

( nl - n2 ) 

(* two-times*) 

Multiplies the number on top of the stack by two. 

{ nl - n2 ) 

( 1 two-plus 1 } 

Adds two to the number on top of the stack, 

( nl - n2 ) 

( f two-minus 1 } 

Subtracts two from the number on top of the stack. 

( nl - n2 } 

( 1 two-divide') 

Divides the number on top of the stack by two, 

( n - Ini ) 

( 1 absolute T ) 

Returns the absolute value of the number on top of the stack. 

( nl n2 - n3 } 

nl is divided by n2 and the 32-bit remainder, n3» is left on 
top of the stack, 

( n - -n ) 

Returns the two's complement of n, i.e. n is subtracted 
from zero {0-n}. 

{ nl n2 - n3 ) 

{’shift-left’} 

Shifts the bits in 'nl' 'n2' bits to the left. Leaves the 32-bit 
result, 'n3*, on the parameter stack. 

( nl n2 - n3 } 

('shift-right*) 

Shifts the bits in 'nl' 'n2' bits to the right. Leaves the 32-bit 
result, 'n3', on top of the parameter stack. 

( ul u2 - u3 ) 

('u-m-times 1 ) 

Multiplies the unsigned values ul*u2 and returns the 32-bit 
unsigned result, u3. on top of the stack. 
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uni/mod 


( ul u2 - u3 u** } 

{*u-m-divide-mod 1 } 

The 32-bit unsigned value ul is divided by the 32-bit unsigned 
value u2. The 32-bit unsigned remainder, u3, and the 32-bit 
unsigned quotient, u4, are left on top of the stack* 
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LOGIC OPERATORS 


and { nl n2 - n3 ) 

Performs a bit-by-bit logical and using nl and n2* returns the 
32-bit result (n3) on the parameter stack* The FORTH code 
definition for and is shown below: 

code and ( nl n2 - n3 ) 

sp }+ dO move, ( take the 32-bit value [n2] off ) 

( the top of the parameter stack ) 

-{ and put in the dO register* ) 
dO sp ) and, { perform an and operation* ) 

( using the 32-bit value on top of ) 

( the stack [nl] and the value in ) 

( the dO register [n2]. replace ) 

{ the value on top of the stack ) 

{ with the result } 
next; ( return ) 

not ( nl - n2 } 

Takes the ones complement of the 32 _ bit value on top of the 
parameter stack* Returns the 32-bit result on top of the 
parameter stack. The FORTH code definition for not is 
shown below: 

code not { nl - n2 ) 

sp ) not, { take the ones complement of ) 

( the 32-bit value on top of the ) 

{ parameter stack. } 
next; { return ) 

or ( nl n2 * n3 ) 

Performs a bit-by-bit logical or using nl and n2* Returns the 
32-bit result (n3) on the parameter stack* The FORTH code 
definition for or is shown below: 

code or ( nl n2 - n3 } 

sp )+ dO move, { take the 32-bit value [n2] off ) 

{ the top of the parameter stack ) 

{ and put in the dO register. ) 
dO sp ) or, { perform an or operation* ) 

{ using the 32-bit value on top of ) 

{ the stack [nl] and the value in ) 

( the dO register [n2], replace ) 

{ the value on top of the stack ) 

{ with the result ) 
next; { return } 

xor ( nl n2 - n3 } 

Performs a bit-by-bit logical xor using nl and n2* Returns the 
32-bit result on the parameter stack* The FORTH code definition 
for xor is shown below: 
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code 


xor { nl n2 " n3 ) 

sp ) + dO move, 


dO sp } eor, 


next; 


{ take the 32-bit value [n2] off ) 

{ the top of the parameter stack ) 

{ and put in the dO register* ) 

{ perform an exclusive or operation. ) 
{ using the 32~bit value on top of ) 

( the stack [nl] and the value in } 

{ the dO register [n2]* replace } 

( the value on top of the stack ) 

{ with the result ) 

( return } 
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COMPARISON OPERATORS 


0 < 


Os 


< 


< 


<> 


inrange 


max 


min 


u < 


{ n - f ) 

{’zero-less-than') 

Returns a true {-1} flag if n is less than zero. 

( n - f ) 

('zero-equal') 

Returns a true (-1) flag if n is equal to zero. 

( nl n2 - f ) 

{ 1 less-than’) 

Returns a true (-1) flag is nl is less than n2. 


( nl n2 - f ) 

('equal'} 

Returns a true (-1) flag if nl is equal to n2. 


( nl n2 - f ) 

('greater-than') 

Returns a true (-1) flag if nl is greater than n2. 


{ nl n2 - f ) 

('not-equal') 

Returns a true (-1) flag if nl is not equal to n2. 


( nl n2 n3 - f ) 

Returns a true (-1) flag if the value nl is greater than or 
equal to the lower limit n2 and less than or equal to the upper 
limit n3 (i.e. n2 < nl < n3 }■ 


( nl n2 - n3 ) 

Compares nl and n2 and returns the greater value. 

( nl n2 - n3 ) 

Compares nl and n2 and returns the lesser value. 

( ul u2 - f ) 

('u-less-than') 

Returns a true (-1) flag if the unsigned value ul is less than 
the unsigned value u2. 
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STACK MANIPULATION OPERATORS 


2drop 


2dup 


>r 


?dup 


?stack 


?stackerr 


( - ) 

{ 1 dot-s 1 } 

Prints a nondestructive display of the number of items on the 
parameter stack: 

3 5 4 i s 3 5 4 ok 

( nl n2 - } 

Discards the top two items on the parameter stack* The FORTH 
code definition for 2drop is shown below: 

code 2drop ( nl n2 } 

8 #n sp addq, { increment the parameter stack ) 

( pointer by 8 f i.e* skip over the ) 
{ top two items on the stack and ) 

{ point at the previous item ) 

next; 

( nl n2 - nl n2 nl n2 } 

Duplicates the top two items on the parameter stack* Leaves 
the duplicates on top of the parameter stack* The FORTH code 
definition of 2dup is shown below: 


code 2dup 

c 

nl 

n2 - nl 

n2 

nl n2 } 


sp 

4 

)d 

sp 

-) move, 


( put a copy of the second 

} 







( 32-bit value on the stack 

) 







( on top of the stack ) 


sp 


)d 

sp 

“) move, 


( do the same thing again* ) 

next; 








( nl - 


return 

stack: 

nl 

) 


Cto-r 1 ) 








Removes 

nl 

from 

the 

parameter 

stack 

: and places it on the 



return stack* 

( n - n n ) or ( 0 - 0 ) 

('question-dupe 1 ) 

Duplicates the value on top of the stack if it is nonzero, 

( - f ) 

( 1 question-stack 1 ) 

Checks the status of the parameter stack, A false (0) flag 
will be returned if the stack is ok, A -1 will be returned if 
the stack is empty (if a stack underflow condition exists) 
and a 1 will be returned if the stack is full. 

( 1 question-stack-error) 

{ ~ ) 

Uses ?stack to check for stack underflow or overflow. If one 
of these conditions has occurred ?stackerr will issue an 
appropriate error message and abort* 
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depth 

drop 


dup 


i 


over 


r> 


r@ 


rot 


swab 


( - n ) 

Returns the number of items on the stack, 

{ nl - ) 

Discards the top item from the stack. The FORTH code definition 
for drop is shown below: 

code drop ( nl - ) 

4 #n sp addq, 


next; 

( nl - ill nl ) 

Duplicates the value on top of the parameter stack. Leaves the 
copy on top of the stack. The FORTH code definition for dup 
is shown be.ow: 

code dup ( nl - nl nl ) 
sp ) sp -} move * 


next; 

( - n ) 

Puts a copy of the top item on the return stack on top of the 
parameter stack. During execution of a do...loop, the top item 
on the return stack is the index for the current loop. 

{ nl n2 - nl n2 nl ) 

Places a copy of the second item on the stack on top of the stack, 

{ n - | return stack: - n } 

{ T r-from r ) 

Transfers the top item on the parameter stack to the top of 
the return stack. 

{ “ n > 

( T r-fetch r ) 

Puts a copy of the top item on the return stack on top of the 
parameter stack, r€ performs the same function as i but r@ 
is normally used outside of ’o...loops* 

{ nl n2 n3 * n2 n3 nl ) 

{ 1 rote 1 ) 

Rotates the third item on the stack to the top of the stack, 

{ nl ~ n2 1 

Exchanges the lower two bytes of the top value on the stack. 
Example: 

hex 

12345678 swab * 12347856 


( move a copy of the 3^~bit ) 
{ value on top of the ) 

( stack, onto the stack ) 

{ return ) 


{ increment the parameter stack pointer ) 

{ by four, i,e. skip over the top item on ) 
( the stack and point at the previous 
( item ) 
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swap 


( nl n2 - n2 nl ) 

Exchanges the top two items on the parameter stack* The FORTH 
code definition for swap is shown below: 


code 


next 


swap 

( 

nl n2 ■ 

- n2 nl ) 


sp 

)♦ 

dO 

move ( 

{ take n2 off the stack ) 






{ and place in the dO register 

) 

sp 

) + 

dl 

move P 

( take nl off the stack ) 






{ and place in the dl register 

) 

dO 

sp 

-) 

move t 

{ put n2 on the stack ) 


dl 

sp 

-) 

move, 

{ put nl on top of the stack) 






{ return ) 
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INTEGER AND LOCAL VARIABI WORDS 


+to ( nl n2 - ) 

( 1 plus™ to f ) 

Format: nl <integer or local variable name> +to 
Adds nl to the current value of the integer or local variable 
specified by name, + to discards the value of the integer or 
local variable, n2, which was place on the stack when the 
name of the integer or local variable was executed and 
uses the address in the iv register (see the integer section 
in the Technicil Reference Manual for more information) 
to find the location where the current value of the integer 
or local variable is stored, 

<locO> ( - n ) 

( T brac-loc~zero r ) 

A special fast word used to access the first local variable 
on the return stack. Moves a copy of the return stack pointer 
into the iv register and then places a copy of the item on top 
of the return stack, the contents of the first local variable, 
on top of the parameter stack. 

<locl> { - n ) 

( T brae-loc-one 1 ) 

A special fast word used to access the second local variable 
on the return stack. Moves a copy of the return stack pointer 4 + 
into the iv register and then places a copy of the second item 
on the return stack, the contents of the second local variable, 
on top of the parameter stack, 

<local> { ~ n } 

Generic word used to access the third, and all subsequent local 
variables on the return stack. Uses the offset painted to by 
the ip register to index into the return stack to find the 
contents of the desired local variable. Puts the address of 
the local variable in the iv register and puts the value of 
the local variable on top of the parameter stack. 

<locals> ( - ) 

First local variable word compiled into a tForth word which 
uses local variables. Creates a storage area on the return 
stack which the local variables will use to temporarily 
hold their values, 

addr ( n - a ) 

{ 1 adder 1 ) 

Format: <name of integer> addr 

Returns the address of the storage location for the integer 
specified by name, 

into ( - n } 

Runtime code for integers located in integer tier 0. Puts the 
address of the integer T s storage location in the iv register and 
places the current value of the integer on top of the parameter 
stack, 
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inti 

( - n 

Runtime 

) 

code 

for 

integers 

located 

in 

integer 

tier 1. 

See 

into. 

int2 

( ' n 

Runtime 

) 

code 

for 

integers 

located 

in 

integer 

tier 2. 

See 

into. 

int3 

{ ' n 

Runtime 

) 

code 

for 

integers 

located 

in 

integer 

tier 3* 

See 

intO. 

int4 

( ‘ n 

Runtime 

) 

code 

for 

integers 

located 

in 

integer 

tier 4. 

See 

intO. 

int5 

{ - n 

Runtime 

) 

code 

for 

integers 

located 

-X n 

integer 

tier 5* 

See 

intO. 

int6 

( - n 

Runtime 

) 

code 

f or 

integers 

located 

in 

integer 

tier 6. 

See 

intO. 

local 

( - ) 

Format: local <name for local variable) 

Creates a named local variable. The local variable 
initialized to any value* Executing the name of the 

is not 
local 


variable will place the value of the local variable on top 
of the parameter stack. 

off { n - } 

Format: <name of local variable or integer) off 

Sets the value of the local variable or integer specified by 
name to zero. The value of the integer or local variable 
placed on the parameter stack when the local variable or 
integer name was executed is discarded, 

on ( n - ) 

Format: <name of local variable or integer) on 
Sets the value of the local variable or integer specified by 
name to negative one. The value of the integer or local variable 
placed on the parameter stack when the local variable or 
integer name was executed is discarded. 

to ( nl n2 - } 

Format: nl <name of local variable or integer) to 
Replaces the current value of the integer or local variable 
specified by name with the 32“bit value nl* The value placed 
on the stack when the local variable or integer name was 
executed is discarded. 
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MEMORY OPERATORS 


! ( n a - ) 

{’store') 

Stores the 32-bit value n into memory starting at address a* 

♦ ! ( n a - ) 

( T plus-store r } 

Adds the 32-bit value n to the 32-bit value located in memory 
starting at address a. The 32 -bit value located in the memory 
location is replaced with the 32 -bit addition result, 

-?&set ( a - f ) 

( T minus-test-and-set') 

Sets the sign bit on the byte located in memory starting at 
address a. This makes the byte a negative value. If the byte 
was already a negative value before -?&set , a true (-1) flag 
is returned. If the byte was a positive value, a false (0) flag 
is returned. The 68000 f TAS', 'test and set* , instruction is 
used to implement this function. The 'TAS 1 instruction is special 
because it was designed such that the microprocessor cannot 
interrupt it between the testing and setting parts of its operation, 

0?&set { a - f ) 

{'zero-test-and-set') 

Clears the sign bit on the byte located in memory starting at 
address a. This makes the byte a positive value. If the byte 
was already a positive value before 0?&set , a true (“1) flag 
is returned. If the byte was a negative value, a false (0) flag 
is returned. The 68000 'TAS 1 instruction is used to implement 
this function (see -?&set ), 

@ ( a - n ) 

{ 1 fetch') 

Places a copy of the 32-bit value located in memory starting 
at address a on top of the parameter stack, 

and! { b a - ) 

{'and-store') 

Performs a bit-by-bit logical AND operation using b and the 
byte located in memory starting at address a. The byte length 
result is stored into memory at address a. 

c! ( b a “ ) 

{*C“Store') 

The least significant 8 bits of the 32-bit value, b, on the 
parameter stack are stored into to memory starting at address a. 

c@ ( a - b ) 

(' c-fetch') 

Places the 8-bit value located in memory starting at address a 
in the least significant byte of a 32-bit value on top of the 
parameter stack. The upper three bytes {24 bits) are set to zero. 
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cmove 


dump 

fill 


move 

not! 


or! 


tip 


w! 


w@ 


xor! 


( al a2 u - ) 

{* c-move 1 ) 

Moves the u bytes located starting at the source address al 
to the memory location starting at destination address a2. 

The general format is: ’source address * ’destination address’ 
’number of bytes to move’ cmove. 

( addr len - ) 

{ a u b - ) 

Replaces the u bytes located in memory starting at address a 
with the byte value b. The general format is: ’start address' 
’count 1 ’fill character 1 fill. 

( al a2 u * ) 

Special version of cmove, 

( a - ) 

(’not-store’} 

Takes the one’s complement of the 8 bits of data located in 
memory starting at address a. The byte length result is stored 
into memory at address a* 

( b a - } 

('or-store') 

Performs a bit-by-bit logical OR operation using b and the 
byte located in memory starting at address a. The byte length 
result is stored into memory at address a. 

( a - } 

Performs a byte write operation to the specified address. 

Used for toggling soft switches, 

( w a - } 

{ 1 word-store f ) 

The least significant 16 bits of the 32-bit value, b, on the 
parameter stack are stored into to memory starting at address a. 

( a - w ) 

{’word-fetch 1 ) 

Places the 16-bit value located in memory starting at address a 
in the least significant word of a 32 -bit value on top of the 
parameter stack. The upper 2 bytes {1 6 bits) are set to zero, 

( b a - ) 

( 1 exclusive-or-store’) 

Performs a bit-by-bit logical XOR operation using b and the 
byte located in memory starting at address a. The byte length 
result is stored into memory at address a. 
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PROGRAM CONTROL STRUCTURES 

*loop Compiling: { - ) 

('plus-loop 1 ) 

Executing: { n - ) 

Format: do ... n +loop 

Program control structure used to implement definite loops. 
During execution, +loop adds to the current loop index. 

<+loop> { n - ) 

{* brae-plus-loop *) 

Run-time code for +loop. Adds the decrement value f n 1 to 
the current loop count and then decides whether the loop 
should be continued or terminated. 

<0bran> ( f - ) 

( f brac-zero-bran 1 ) 

Run-time conditional branching primitive, A branch will occur 
if the flag passed to <0bran> is false (zero). Can only 
handle short {-8i<n<80 hex) branching distances. Used by 
while, until* and if. 

<0branl> ( f - ) 

('brae-zero-bran-long') 

Run-time conditional branching primitive. A branch will occur 
if the flag passed to <0branl> is false (0) , Can be used for 
short and word {-8001<n<8000 hex) branching distances. Used by 

while, until, and if. 

<Qleave> { f - ) 

{* brac-zero-leave f ) 

Run-time code used to conditionally leave from a 'do...loop' 
or , do...+!oop 1 program control structure. The branch out of 
the program control structure will occur if the flag passed to 
<01eave> is false (0), Can only be used to branch forward 
short distances (n<80 hex). Currently, all leave and while 
branches use the long version of <Qleave>, Also cleans up 
the return stack by reclaiming all of the return stack space 
used by the loop. Used to by used by while, 

<Qleavel> ( f - ) 

{ 1 brac-zero-leave-long 1 } 

Run-time code used to conditionally leave from a f do..,loop 1 
or , do..,+loop f program control structure. The branch out of 
the program control structure will occur if the flag passed to 
<Qleavel> is false (0). Can be used to branch forward word 
length distances {-8001<n<8000 hex), Also cleans up the 
return stack by reclaiming all of the return stack space used 
by the loop. Used by while. 
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<abort"> 


(fan-) 

( 1 brac-abort-quote r ) 

Hun-time code used by abort 11 * Expects to be passed the 
address f a f and length 'n 1 of an error message string and a 
flag f F # indicating whether or not the message should be 
displayed in the explain screen* 

<bran> ( - ) 

( f brac-bran 1 ) 

Run-time unconditional branching primitive- Always causes 
a branch to occur* Can only handle short {-8l<n<80 hex) 
branching distances* Used by again and else* 

<branl> ( - ) 

{ 1 brac-bran-long r ) 

Run-time unconditional branching primitive. Always causes 
a branch to occur. Can handle short <-8l<n<80 hex) and 
word (-8001<n<8000) length branching distances. Used by 

leave and else. 

<do> { nl n2 - ) 

('brac-do 1 ) 

Run-time code for do. Expects to be passed a loop index, 
n2 t and limit, nl, on the parameter stack* Takes both values 
off of the parameter stack and then pushes first the limit onto 
the return stack and then the count (limit-index)* 

<leave> ( - ) 

( r brac-ieave 1 ) 

Run-time code used to unconditionally leave from a , do.**loop r 
or 'do.**+loop' program control structure* Can only be used to 
branch forward short distances (n<80 hex)* Currently, all 
leave and while branches use the long version of <ieave>* 

Also cleans up the return stack by reclaiming all of the return 
stack space used by the loop* Used by leave. 

<!oop> ( - ) 

{ 1 brac-loop f ) 

Run-time code for loop. Subtracts one from the value on 
top of the return stack {the count value for a ’do.^loop 1 ) and 
then checks to see if the count has reached zero. If the 
count has reached Eero, <loop> removes the limit and count 
from the return stack and terminates the loop by allowing 
program execution to continue on the the code which follows 
the 'do. •*loop 1 . If the count has not reached zero, "jumps 11 
back to the code which immediately follows the do* 

<quit> { - ) 

( f brac-quit 1 } 

Low-level word used by quit. 
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again 

{ - ) 

Format: begin ... again 

Used to implement endless loops* All code between the begin 
and again will be executed endlessly (leave, while, and 
exit can be used to terminate 'begin***again 1 endless loops)* 

abort" 

( f - ) 

{ 1 abort “quote 1 ) 

Format: f abort" ccc" 

If the flag passed to abort* is true (nonzero), a forced 
system abort process will occur* A beep will be issued, the 
message between the quotes will be displayed on the explain 
screen, the parameter stack will be cleared, and quit will be 
executed {to start FORTH running again), abort* must be 
used within a colon definition* 

begin 

( - ) 

Format: begin * * « again 

begin .** until 

Used to mark the start of an endless or indefinite program loop* 

do 

Compiling: ( - ) 

Executing: j nl n2 - ) 

Format: nl n2 do .** loop 
nl n2 do * , * n3 +loop 

Marks the start of a definite program loop* During execution, 
do takes the index *n2 f (start count) and limit ini’ {end count) 
for the loop from the parameter stack and transfers the limit 
and the loop count (limit-index) to the return stack * 

else 

Compiling: ( - ) 

Executing: ( f - ) 

Format: if * * * else ,■* then 

Inner decision point in the 1 if*.*else*. .then 1 conditional program 
control structure* During execution, if the flag passed to 
else is true {nonzero), the code between the else and the 
then will be executed* Otherwise, program execution will 
continue on to the code which immediately follows the then. 

execute 

( n - ) 

Executes the word corresponding to the token f n* passed on 
the stack* Example: 

1 ,s execute empty 

exit 

( - ) 

Immediately and unconditionally terminates execution of the 
current definition and transfers control to the definition which 
contains the current definition* 
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if Compiling: { * ) 

Executing: { f - ) 

Format: if .,, then 
if ■* * else ,.. then 

Marks the start of the 1 if..*then’ or 1 if.*,else,,,then 1 
conditional program control structures* During execution, if the 
flag passed to if is true (nonzero), the code between the if 
and the then, or the code between the if and the else will 
be executed. Otherwise, program execution will be routed to 
the code which immediately follows the then (if the T if.*,then' 
structure is being used) or to the code between the else 
and the then {if the Vif,,,else,,,then 1 structure is being used)* 

interpret ( a 1 - ) 

interpret is the main word involved in the running FORTH* 
interpret performs the following actions: 

1. Takes as inputs the address and length of a block of user 
input text, 

2* Advances through the text, word by word. The word word 

is used to isolate individual input "words" (a sequence of 
characters surrounded by spaces or tabs}* Each time word 
is used it will return the address and length of the next 
word in the input text block to interpret. The in system 
variable is used to mark word's progress through the input 
text. 

3* Next, interpret passes the address and length returned by 
word to find. find will check to see if the string 
represented by the address and length contains the name 
of a word which can be found in the dictionary using the 
current vocabulary search order. If the system is in the 
compiling state, the word will be compiled into the definition 
currently being constructed. If the system is not in the 
compiling state, the word will be executed immediately 
(using execute). 

4. If the string represented by the address and length does 
not contain the name of a FORTH word, interpret will pass 
the string address and length to number, number will 
try to convert the string to a number* If the number 
conversion process is successful and the system is in the 
compiling state, the converted number will be compiled as 
a literal into the definition currently being compiled. If 
the system is not in the compiling state, it will be placed 
immediately on the parameter stack. 

5* If the string cannot be found in the dictionary, and cannot 
be converted to a number, interpret will issue an error 
message to indicate that it does not recognize the input, 

6* If there is more user input text to process, interpret will 
repeat the steps above. If the user input text has been 
exhausted, interpret will terminate execution and let 
quit (the word which calls interpret) get more user input. 
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leave 


( - ) 

Immediately and unconditionally reroutes program execution 
out of the current "looping" program control structure* 

May be used in 'begin’ loops or in ’do 1 loops. 

loop { - ) 

Format: do , loop 

Marks the end of the T do.,.loop 1 definite loop program control 
structure. During execution, loop will decrement the loop 
count by one and compare the new count to zero* If the count 
has reached zero, loop will terminate the loop by routing 
program execution to the code which immediately follows it. 
Otherwise, loop will route program execution back to the 
code which immediately follows do. 

nest ( - ) 

Used by all words which start program control structures* 

If a program control structure is being used interactively, 
nest compiles an assembly language "jump to the nesting routine" 
instruction, records the address of the instruction, and 
increments the nesting level by one* This address will be used 
later when the temporarily compile code must be moved to the 
execution buffer for immediate execution* If a program control 
structure is not being used interactively, nest will simple 
increment the nesting level, stored in the system integer 
nesting, by one. See unnest. 

quit ( - ) 

quit is the word which runs FORTH. Clears the return stack 
and puts the system in the interpreting state. After quit is 
executed the system will be waiting for user input 
to interpret and execute. A high-level definition of quit is: 

: quit ( - ) 

begin 

{ clear the return stack ) 

{ get a block of user input text ) 

( interpret the user input text ) 
ok" cr 

again ; ( do this endlessly ) 

then ( - ) 

Format: if . then 

if ..* else * *. then 

Marks the end of the 1 if*,.then 1 or 1 if... else... then 1 conditional 
program control structures. 
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unnest 


{ - ) 

Used by all words which end program control structures. 

Decrements the nesting system integer by one and, if 
nesting has been reduced to zero and the system is not in 
the compilation state, moves the temporarily compiled 
program control structure code up to the execution buffer 
and causes it to be executed immediately. If the system 
is in the compilation state, unnest simple decrements 
nesting by one. 

until ( f - } 

Format: begin ... f until 

Conditional exit/branching word used at the end of the 
'begin.,.until' indefinite loop program control structure. 

If the flag passed to until is true (nonzero) t until will 
terminate execution of the loop by allowing program execution 
to continue on to the code which immediately follows itself. 

If the flag is false (0), until will reroute program execution 
back to the code which immediately follows the begin, 

while Compiling: { - ) 

Executing: ( f - ) 

Format: begin ,., while ( ... while ) ... again 

begin .,, while ( ... while ) ... until 

do ,., while ( ... while .., ) ... loop 

d0 ... while ( ... while ... ) ... +loop 

Inner decision/branching point in the 'begin...until' , 

'begin.again', 1 do...loop' f or * do...+loop* program control 
structures. During execution, if the flag passed to while is 
true (nonzero) f the code between the while and the next while 
until, again, loop, or + Xoop will be executed. If the 
flag is false, while will immediately reroute program execution 
out of the current loop (to the code which follows the next 
until, again, loop, or +loop). 

{loop} { nl n2 - ) 

( r curly-loop') 

Shared routine used by the loop termination words loop, +loop 
until and again. Used during compile time to compile the 
lower level branching primitives used by the loop termination words 
and to resolve and compile the delta branching distances used by 
the lower level branching primitives. 

{while} { - ) 

( 1 curly-while 1 ) 

Shared routine used by the words used to exit from loop program 
control structures: while and leave. Compiles the lower 
level branching primitive used by the exit word and reserves a 
two byte space for the delta branch distance used by the branching 
primitive 
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CHARACTER I/O WORDS 


" Compile time: ( - ) 

Run-time: ( - addr len ) 

{ f quote 1 ) 

Format: 11 ccc" 

When used during compilation, lays the string between quotes, 
and the runtime code <"> , into the definition being compiled* 

At run time the address and length will be left on the parameter 
stack. When used interactively leaves the string characters in 
the ’fcib* and returns the address and length on the stack. 

The first " must be surrounded on both sides by at least one 
space or tab. Caution: Always double-check for the presence 
of the closing " , If the closing " is missing, the compiler 
will continue appending program text into the string being 
constructed in the definition until either the dictionary fills up 
or until some other error message is generated* 

11 to ( addrl nl addr2 n2 - ) 

( 1 quote-to 1 ) 

Format: " ccc 11 <string name> "to 

Stores the string specified by the address and length (addrl 
and nl) into the string integer specified by name. The address 
and length (addr2 and n2) of the current string stored in the 
string integer, which were placed on the stack when the name 
of the string integer was executed, are discarded, "to adjusts 
the string integer's storage area size to accomodate the length 
of the new string data. 

( ( - ) 

( 1 paren 1 ) 

Format: ( ccc ) 

{ is the FORTH commenting word. All characters between the 
starting left paren and the closing right paren are considered 
to be comments and are ignored by the FORTH compiler. ( must 
be surrounded on both sides by at leas^ ne space or tab. 

Comments may not be nested* i,e. t don’t use parentheses within 
comment statements. 

+bit7 ( char - char 1 } 

{ 1 plus-bit-7') 

Sets the seventh bit in the character byte. 


-trailing 

( addr len - addr len’ ) 

( 1 minus-trailing 1 } 

Strips the trailing spaces from the string located at address 
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<"> 


< *' to> 


< derail t> 


<remit> 


<word> 


ascii 


becomes 

check 


{ - ) 

( 1 dot-quote*) 

Format : . ,¥ ccc" 

May be used interactively or compiled into a definition. The 
compile-time action of . * is to lay the string between quotes 
into the definition being compiled. The run-time action of , n 
is to type the string between quotes out to the current output 
device. The must be surrounded by at least one space or 

tab. Example: 

." Hello" Hello “ { used interactively ) 

: SayHi ( - ) ," Hello again," ; ( compiled into a ) 

SayHi Hello again. ( definition, } 

( - addr len ) 

( ’brac-quote 1 ) 

<"> is the run-time code for the word * ♦ Pushes the address 
and length of the string on the stack, 

{ addrl nl addr2 n2 -> addr3 n3 } 

( 1 brae-quote-to 1 } 

Run-time code for "to , 

{ char x y - } 

{ f brac-display-emit T ) 

Draw the character at position x f y on the screen, 

( char - } 

( 1 brac-raw-emit 1 } 

Raw emit to the screen, 

( addrl addr2 - addr3 n addr4 ) 

{ 1 brac-word 1 } 

Lower level routine used by word . Looks for the next word 
in the input stream which is surrounded by at least one space. 
Takes the start address* addrl; and end address, addr2; of a 
region of text to search. Returns the address where the next 
search should commence, addr3; the length of the word found, 
n; and the address where the word found is located, addr4, 

( - n ) 

Format: ascii <char> 

Returns the ASCII value of the single character which 
immediately follows it. 


< - ) 

( addr n - ) 

Format: <string integer name> check 

Prints the ASCII values for each character in the string currently 
stored in the string integer specified by name. If the string 
integer is empty, an error message is displayed. 
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cr ( - ) 

('c^r 1 ) 

Emit a carriage return/linefeed to the current active output 
devices * 

crifscroll { - ) 

Emit a carriage return and linefeed* Also blank the new 
line out and scroll if necessary. 

ctl { ~ ) 

{* control 1 } 

Format: ctl <char> 

Turns the character which immediately follows it into a 
control character by setting the three most significant bits 
in the character byte to zero. 

demit ( c * } 

{'display-emit 1 ) 

Emit the character to the screen. If the character is a 
cr perform a carriage return/linefeed and scroll if necessary. 

If the character is the ’del 1 (delete) character erase the 
previous character on this line (if any)* 

eemit { c - ) 

{ ' editor-emit 1 ) 

Emit the character to the editor, 
emit ( c - ) 

Output the character to all active output devices* The 
allowable output devices are the screen {see demit), 
the parallel port (see pemit }, the editor (see eemit), 
and the serial port (see semit)* 

key ( - c ) 

Waits until a printable character (8<ascii code<80 hex) is typed 
at the keyboard. Returns the ASCII value of the character 
on the stack* 

pemit ( char - ) 

( 1 parallel-emit *) 

Send the character out through the parallel port, 
rub { - ) 

Erase the previous character on the current line (if any), 
scanfor { c - } 

Looks for the next word in the current input stream which 
is surrounded by the delimiter character, c. Sets the in, 
str, and len system variables. 

space ( - ) 

Emit a space to the current active output devices, 
spaces ( n - ) 

Emit r n 1 spaces to the current active output devices. 
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word ( - ) 

1] Looks for the next word in the current input stream which 

] is surrounded by at least one space. Sets the in t str, and 

len system variables accordingly. 
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NUMERIC 

# 


#> 


#s 




I/O WORDS 

{ nl - n2 } 

{’sharp 1 } 

Format; n <# ... # ... #> 

Extracts the lowest order digit from the number on top of the 
stack and inserts it into the formatted numeric string being 
constructed in the pad. 

{ nl - a n-2 ) 

( ' sharp-greater') 

Format: n <# ... #> 

Removes the number from the top of the stack and returns 
the address and length of the formatted numeric string which 
has been constructed in the pad (prepares the formatted 
numeric string for type). 

( n - 0 ) 

( 1 sharp-s*) 

Format: n <# ... #s ... #> 

Calls # until the number on top of the stack has been reduced 
to zero. 

( n - ) 

('dot f ) 

Prints the signed value on top of the stack followed by a 
trailing space. The definition of . provides a good example 
of the use of the pictured numeric output operators: 

: . { n - | Output n as a signed or unsigned number 

with 1 trailing space, 
dup 
abs 
<U 

#s 


swap 
sign 

#> 

type 

space ; 

( n w - } 

( 1 dot-r') 

Prints the signed value 'n T in a field which is 'w r spaces wide. 

( n - n ) 

( 1 less~sharp'} 

Format: n <# ... #> 

Marks the start of a pictured numeric conversion process. 

The words #, #> f <#, hold, and sign are all 

used to construct the formatted string in the pad. 


) 

{ duplicate the number ) 

{ get absolute value of number } 

( start number formatting,.. } 

{ convert all digits in number to } 

{ ascii characters and insert in ) 

{ the string } 

{ check the sign of the original number ) 
{ if it was negative, insert a t - f here ) 
( clean up stack, set stack for type ) 

( display the string ) 

{ follow numeric string by one space } 
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decimal ( * } 

Selects base ten (decimal) as the base used for all numeric 
input/output conversions, 

digit ( nl n2 - n3 c ) 

Extracts the least significant digit from the number, nl f on the 
stack (using the specified base, n2) and leaves ascii value for 
the digit, c, and the remaining number, n3 on the stack, digit 
performs the following actions: 1, takes the number nl from the 
stack and divides it by the base, n2 2, leaves the quotient of the 
division, n3, and the ASCII value of the remainder, c, on top of 
the stack, 

hex ( - ) 

Selects base sixteen (hexadecimal) as the base used for all 
numeric input/output conversions. 

hold ( c - ) 

Format: <# ,ascii c hold ... #> 

Inserts the character (represented by the ASCII value) on top 
of the stack into the formatted numeric string currently being 
constructed in the pad. 

number ( a nl n2 - f | If conversion is not successful, ) 

( a nl n2 - $3 f l If conversion is successful* ) 

Converts the string of length nl located starting at address a 
to a number, n3, using base n2. If the stringsto-number 
conversion is successful, the converted number and a true 
(-1) flag will be left on the stack. If the string-to-number 
conversion is not successful (non-numeric characters in the 
string} a false (0) flag will be left on the stack. 

sign ( n - ) 

If the number on top of the stack is negative, sign will 
insert a minus sign into the formatted numeric string being 
constructed in the pad. 

u. { n - ) 

Prints the unsigned value on top of the stack followed by 
a trailing space. 

u. r ( n w - ) 

Prints the unsigned value l n 1 in a field which is 1 w T spaces wide. 
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DEFINING WORDS 


<string> 


array 


integer 


string 


vocabulary 


( - addr len ) 

( f brac-string'} 

Run-time code for string integers created with the defining 
word string. Pushes the address and length of the string 
stored in the string integer on the stack* 

{ " ) 

( 1 colon 1 } 

Format: : <name> ...words*,. ; 

Defining word used to create new definitions* Puts the system 
in the compiling state, creates a new dictionary header using 
<name> t sets the smudge bit in the dictionary header so the 
definition will not be visible until completed. All words between 
the <name> and the ; will be compiled into the definition. 

The run-time action of words created by : is to execute the 
words which comprise the definition* 

Compiling: ( n - ) 

Executing: ( - a ) 

Format: n array <arrayname> 

During compile-time t array allocates f n r bytes in the dictionary 
for an array of data and creates a header to mark the start of 
the data area. The run-time action of the child words created 
by array is to push the address of the start of the array data 
area on the stack. 

64 array message 
message , 293^36 

Compiling: ( n - ) 

Executing: { - n ) 

Format: n integer <integername> 

At compile-time integer creates a named 4-byte data location 
and initializes the location with the value *n T . The run-time 
action of the child words created by integer is to push the current 
contents of their 4-byte storage location on the stack. 

Compiling: (an-) 

Executing: {-an} 

Format: " ccc" string <stringname> 

At compile-time string creates a named, multi-byte string storage 
area in the dictionary and initializes the storage area with the 
characters between the quotes. The runtime action of the child 
words created by string is to push the address and length of the 
the string currently stored in the string storage area on the stack. 

{ - } 

Format: vocabulary <vocabname> 

Create a new but inactive vocabulary. The name for the new 
vocabulary will reside in the vocabulary which was open when 
the new vocabulary was created. When the child word created 
by vocabulary (<vocabname>) is executed, it will place itself 
first in the vocabulary search order. 
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DICTIONARY MANAGEMENT WORDS 


<addto> ( n ** ) 

( f brae-addto 1 ) 

Close the current open vocabulary and open the vocabulary 
specified by the token , n** 

<becode> ( n - ) 

{ 1 brac-becode') 

Remove the code corresponding to the token ’n\ 

<behead> { a - } 

( 1 brac-behead*} 

Remove the header located at address 1 a f , 

<bevoc> { n - ) 

{’brac-bevoc') 

Completely eliminate the vocabulary specified by the token f n'. 

<csize> ( a. - n ) 

('brac-code-size 1 } 

Returns the code size ’n 1 , in bytes, of the word whose code 
is located at address 'a 1 , 

<deactivate> { n - ) 

('brac-deactivate f ) 

Removes the vocabulary specified by the token , n l from the 
current search order (removes its token from the 'active' 
array, see active), 

<empty> ( n - ) 

{'brac-empty 1 ) 

Purges all words from the vocabulary specified by the token 'n*. 

<eta> { a n - 0 | If token f n‘ is not found, } 

( al n - a2 | If token f n f is found, ) 

Takes the vocabulary address 1 al f and the encoded token 

value f n* and, if successful, returns the encoded token address, 

<purge> ( n - } 

( 1 brae-purge') 

Removes the word corresponding to the token 'n' from the 
dictionary- 

add to ( - ) 

Format: addto <vocab-name> 

Opens the vocabulary whose name immediately follows addto, 

behead ( - ) 

Format: behead <name> 

Remove the header of the definition whose name immediately 
follows behead. 
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bevoc 


createvoc 


csize 


deactivate 


empty 


emptyvac 


eta 


existing 


forth 


invoc 


name 


( - ) 

Format: bevoc <name of vocabulary> 

Removes the vocabulary specified by name, and all words in 
the vocabulary, from the dictionary. 

( al n - a2 ) 

Create an empty vocabulary using the image of an empty 
vocabulary located starting at address # al' and assign it 
the token 'n 1 . Return address f a2 1 is unused. 

( - n ) 

{ 1 code-size 1 ) 

Format: csize <name> 

Returns the code size of the word specified by <name>. 

{ - > 

Format: deactivate <vocab-name) 

Removes the vocabulary whose name immediately follows 
deactivate from the current search order, 

( - ) 

Purges all words from the current vocabulary. The words 
in the forth vocabulary cannot be purged, 

{ - addr ) 

Returns the address of the 18 decimal byte image of an 
empty vocabulary. 

{ token - addr f ) 

Tries to return the address of the token table entry for the 
token. If successful returns the token table entry address 
and a true (nonzero) flag. Otherwise, returns a false (0) 
flag, 

( - ) 

Displays the names of and parents of all existing 
vocabularies < 

( - ) 

This is the main 'tFORTH* vocabulary. It contains all of the 
f standard 1 FORTH words supported by "tFORTH 1 and all of 
the 1 tFORTH* FORTH extension words. Execution of forth 
will cause the forth vocabulary to become the first 
vocabulary in the search order (its token will be placed first 
in the ’active’ array). 

{ a - n ) 

Returns the token 'n 1 of the vocabulary which contains 
address * a 1 . 

( n - ) 

Print the name of the definition which corresponds to the 
token 1 n 1 . 
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purge 


recycle 

re top 


safety 


searched 


setcodesize 


vocab 


vocab? 


vopen 


words 


{ " ) 

Format: purge <name> 

Removes the word specifed by <name> from the dictionary* 

( n - ) 

Reclaims the token table space for the token 'n'. 

( a - ) 

Lower level word used to open a vocabulary. Moves 
the upper half of the dictionary up so that the new top 
of dictionary is at address 'a*. 

( a - } 

Reclaim the token table space for the toxen whose header 
is located at address 'a'. 

{ - ) 

Display the vocabulary search order. 

( - ) 

Set the code size field for the current open vocabulary. 
Set the odd size flag if necessary. 

( - ) 

Move the current execution vocabulary to the top of the 
search order by placing its token at the start of the 
active array. 

( token - f ) 

Returns a true (nonzero) flag if the token on top of the 
stack it the token for a vocabulary. Returns a false (0) 
flag otherwise. 

{ token - addr ) 

Returns the address of the opening point for the 
vocabulary which corresponds to the token. 

{ ~ ) 

Displays a list of all words in the vocabulary which is 
first in the search order. 
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COMPILATION WORDS 


I csp 


+ table 


<;> 


<: lp> 


( - ) 

{ f store-csp') 

Used to save the return stack pointer value away before a 
compilation process occurs. 

{ - token ) 

( 1 tick’) 

Format: 1 <name> 

Returns the token for <name>: 

f words . 1A5 ok 

( n - ) 

( 1 comma’) 

Lays the 3^-bit value T n* into the next free location in the 
code area. The here pointer always points at the next free 
location in the code area. The here pointer is incremented by 
4 bytes. 

{ n - a ) 

{’plus-table 1 } 

Takes a token table entry number and calculates and returns 
the address of the corresponding token table entry field. 

{ - ) 

{ 1 semi-colon 1 } 

Used to terminate colon definitions. If the colon definition does 
not use local variables, : causes the word <;> to be compiled 
into a definition. If the colon definition does use local 
variables, ; causes the word <;lp> to be compiled into a 
definition. 

Parameter: ( - ) Return: j nl n2 - ) 

( f brac-semi 1 ) 

Run-time word compiled by ; . Pops two word length return 
values off of the return stack. The first value popped, f n2' t 
is used to reconstruct the ip register. The second value 
popped is used to reconstruct the ct register. 

( - ) 

( r brac-semi-local 1 ) 

Run-time exit word compiled at the end of colon definitions 
in which local variables are used. Compiled by ; * Pops two 
word length return values off of the return stack (see <;> ) 
and then reclaims all return stack local variable storage. 
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<find> 

( al a2 nl - a2 F | IF not found ) 

( al a2 nl a3 n2 t | If found ) 

Searches for the name specified by the string at address 'a2' 
of length ’nl* in the vocabulary which starts at address 1 al f . 

If the word is found in the vocabulary, <find> will return the 
dictionary header address T a3’ for the word t the token for the 
word 'n2 f and a true flag (nonzero)* If the word is not found 
in the vocabulary <find> will return the original name string 
address 1 a2 T and a false (zero) flag* 

?esp 

( - ) 

(*question-csp*) 

Compares the current return stack pointer to the return stack 
value saved away previously in the csp system integer. If the 
two addresses are not equal the system will abort with an 
n unpaired* 1 message. The return stack pointer address is saved 
away at the start of the compilation of a colon definition (in :) 
and is checked at the end of compilation (by ; )* 

?pairs 

{ - ) 

(* question-pairs *) 

Checks for properly paired conditional statements* Aborts 
and issues an error message if it senses an improperly paired 
conditional, 

align 

( - ) 

Aligns the here pointer to an even address boundary. 

allot 

{ n - ) 

Tries to allocate 1 n 1 bytes in the code area of the currently 
open vocabulary. If no vocabularies are currently open, or if 
'n 1 bytes are not available in the open vocabulary, the system 
will abort. allot allocates space by adding 'n' to the address 
stored in the here system integer. 

assign 

( al a2 n - } 

Assigns a token to and builds a header for a new definition in 
the vocabulary specified by the address 1 al T using the name 
located at the address ’a2* with the length 'n' ( 

backelse 

{ nl - n2 nl ) 

Used by then to backpatch a forward else branch offset* 

If the delta branch distance is short (-8l<delta<80), the code 
between the else and the then will be shifted one byte 
towards lower memory and the shift distance, -1, will be 
returned as the second item on the stack, n2. If the delta 
branch distance is word length (~8001<delta<8000) no code 
movement will occur and a shift distance of 0 will be returned 
as the 1 n2 T parameter, 
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blit 


c ( 


compile P 


create 


decode 


diff? 


doloc 


( - n ) 

( 1 byte-literal 1 ) 

Code definition which transfers the byte-length literal value 
point* 1 to by the instruction pointer to the parameter stack 
and increments the instruction pointer by one byte. Used by 
literal. 

( ~ a ) 

( T c-tick*) 

Format: c T <name> 

Returns the address of the code field (code area) of the 
definition specified by <name>. 

( c - ) 

( f c-comma *) 

Compiles the byte length value 'c* into the next available 
location in the code area (at the address pointed to by the 
here pointer, ) 

( n - ) 

(’compile-comma 1 } 

Lays the token value passed on the stack into the dictionary 
at the current here address* Checks the size of the value* 

If the token value is greater than $100 {bigger than one byte) t 
compile will w p the token value into the dictionary. If the 
token value is less than $100, compile will use c P to place 
the token into the dictionary- 

( - ) 

Format: create <name> 

Assigns a token to and creates a header entry for <name> in 
the current open vocabulary* 

( n - token ) 

Takes the encoded token number from the top of the stack, 
decodes it* and returns the decoded token number on top of 
the stack* 

( al a2 n -> 0 1 If strings match ) 

( al a2 n -> a3 -1 1 If strings don T t match } 

Compares the first ' n 1 characters in the strings located at 
addresses 1 al f and t a2 l * If the first 1 n t characters in the 
two strings match, a false (0) flag is returned* If the first 
’n 1 characters in the two strings do not match, a true (-1) 
flag and a pointer to the first dissimilar character in the 
first string (the string pointed to by ’al 1 ), 'aS 1 , is returned* 

( - f ) 

Used by interpret. Only used within a colon definition. 

Checks to see if the word just extracted from the input stream 
belongs to a local variable* If the word is the name of a local 
variable, compiles the code which will place the value of the 
local variable on the stack during execution into the definition 
and returns a false {0} flag. If the word is not the name of a 
local variable, returns a true (nonzero) flag* 
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encode 


( nl - n2 } 

Takes the decoded token number from the top of the stack, 

encodes it, and returns the encoded token number on top of 
the stack. 

find ( a nl - n2 true 1 If found in search order ) 

( a nl -> false 1 If not found in search order ) 

Searches the through the dictionary (uses the current search 
order) looking for the definition whose name matches the name 
at the address f a r with length *nl r . If a match is found, find 
will return a true (nonzero) flag and the token which 
corresponds to the definition, If a match is not found, find 
will return a false (0) flag* find uses the lower level word 
<find> . 

fnderr { - ) 

( 1 find-error 1 ) 

Prints a "can't find" error and aborts* 
forward ( - ) 

freetoken ( - ) 

Prints an "unassigned token" message and aborts * 
immediate ( - ) 

Sets the immediate bit (bit 6) of the most recently defined 
colon definition so that whenever the word is encountered 
* during compilation, it will be compiled rather than executed. 

The address of the header entry for the most recently defined 
colon definition is kept in the newest system integer, 

lit ( n ) 

Code definition which transfers the long-word (32-bit) literal 
value pointed to by the instruction pointer to the parameter 
stack* The instruction pointer, ip, is incremented by by b bytes. 
Used by literal* 

literal ( n - ) 

literal is used to compile constant data into a definition, 
literal will also compile the token of a word which will push 
the constant data onto the parameter stack when the definition 
is later executed* If the value can be represented with one byte 
of data, literal will compile the toke for blit into the new 
definition. If the value can be represented with two bytes 
of data, literal will compile the token for wlit into 
the new definition. If the value can only be represented with 
^ bytes of data, literal will compile the token of lit into the 
new definition, 

n' { - a } 

{'n-tick'} 

Format: n* <name> 

Returns the address of the dictionary header area for the 
word specified by <name>. 
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raddr ( - a ) 

Copies the return information stored on the return stack. 

Uses the return information to calculate the address v*here 
the next token to be executed in the definition at th^ next 
higher execution level is located {calculates the previous 
location of the ip pointer). Used by compile. 

reeycledtoken 

{ - token ) 

reeycledtoken checks to see if any previously assigned tokens 
are now available for re-assignment * If a previously assigned 
token is available, reeycledtoken will return the token value 
on the stack. If no previously assigned tokens are available 
a token value of 0 will be returned* 

same? ( al a2 n -> f ) 

Returns a true (nonzero) flag If the first ’ n T characters 
in the strings located at 'al 1 and 'a 2' are the same. 

stub { “ ) 

Format: stub <name> 

Uses create to assign a token to and create a dictionary 
header for <name>, Stores a 0 in <name> 1 s token table entry so 
<name> will not have any corresponding code area. 

w, { w - ) 

{’w-comma') 

Stores the word length value r w f into the next available spot 
in the code area of the currently open vocabulary, 

wilt { - n ) 

{' w-lit f ) 

Code definition which transfers the word-length (l6*bit) literal 
value pointed to by the instruction pointer to the parameter 
stack and increments the instruction pointer by two bytes. Used 
by literal, 

[ { - ) 

(’left-bracket*} 

Turns the FORTH compiler on. 

[ 1 ] { token ) 

( f brae-tick-brac r ) 

Format: : <name> ['] <definition-name> ; 

[ f ] must be used within a colon definition, ['] will return the 
token for the definition whose name immediately follows it 
in the colon definition, 

: test ( - ) [ 1 ] words . ; 

test lAp ok 

[compile] ( - ) 

( 1 brac-compile-brac') 

Compiles the token of the word which immediately follows 
it into the definition currently being constructed. 
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) ( - ) 

{ 1 right-bracket') 

Turns the FORTH compiler off. 
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DISK I/O WORDS (HIGH-LEVEL) 


Iptr 

<load> 

<rblock> 

<wblock> 

?diskerror 

@ptr 

block 

copy 

copyO>0 

doff 

don 

driveO 

drivel 

ebuf 


( n delta - > 

Store the value n into the save block area* 

( n - ) 

Reads block f n f from disk into memory and interprets its 
contents* 

( addr b# - flag ) 

Read block number *b* into the buffer located at address 
’addr’. If no error occurs during read, the flag returned will 
be false (0)* 

( addr btf - f } 

Write the block of data contained in the buffer located at 
address ’addr 1 to block number 'b * on the disk* If no error 
occurs during the write operation the flag returned will be 
false (0). 

{ n - ) 

?diskerror will take the error code from the parameter stack, 
analyze it, and print an error message which tells the user 
what type of disk error occurred* 

( delta - ptr ) 

Get a pointer from the system id area* 

( n - ) 

Tries to read the contents of block number 'n' on the 
disk into the block buffer in memory* If block ’n 1 has 
already been read into the block buffer, block will 
do nothing* If block *n f is not currently in the block 
buffer, block will read the contents of block 'n 1 into 
the buffer and overwrite the current block buffer contents* 

( nl n2 n3 - ) 

Copy blocks number , nl t through 1 n2* to the blocks starting at 
block number 1 n3 l . 

{ nl n2 n3 “ ) 

Copy blocks number 'nl T through T n2 l from the source disk to 
the blocks starting at block number T n3* on the destination 
disk* 

( - ) 

( - ) 

Tries to turn the disk drives on, 

( - ) 

{ - ) 

{ - ) 
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format { - ) 

Formats a disk using the IAI disk format, 
idblock { - f ) 

Read one of the two edde (i/o flag) id blocks. The flag returned 
will be true {nonzero) if an error occurs during the read, 

load ( b - ) 

rblock { addr b - ) 

Reads block # ! b' from disk to the RAH buffer located 
starting at address f addr\ 

rb locks { n b - n m ) 

Read 'n T blocks, starting at block number ’b', from disk into 
memory starting at the current location of the here pointer. 

recal { * ) 

rsector { a sector# - errorcode ) 

rtrk { a track - errorcode ) 

save? ( - ) 

Aborts if the disk is write-protected 

sideO ( - ) 

sidel ( - ) 

thru ( bl b2 * ) 

Loads block number f bl r through block number ^2’ from disk, 
vsector { a sector# - errorcode ) 

wblock { addr b - } 

Write the block of data located in RAM starting at address 
'addr’ to block number *b f on the disk, 

wblocks ( n b - n b ) 

Write blocks, starting with block 1 b 1 , to disk from memory 
starting at the address of the here pointer, 

wsector { addr sector# - errorcode ) 

wtrk { addr track - errorcode ) 
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DISK I/O WORDS (LOW-LEVEL) 


* <restore> 

* <save> 

<rdata> 


<rheader> 


<rsector> 

<step> 

<traekdump> 

<vdata> 


<vsector> 

<wdata> 


<wsector> 


( - ) 

Restore subroutine. 

( - ) 

Save subroutine address, 

( d2 = -1 if invalid crc or data field not found ) 

( d3 = low word is crc read* high word is crc calculated ) 

{ a6 = address of rbyte ) 

( a5 - address of disk status register ) 

{ a4 = disk data register address ) 

( a3 = CRC table address ) 

{ a2 « return address ) 

( al = buffer address ) 

{ d2 “ returns with the address of info or -1 if not found. } 

{ a6 = address of rbyte ) 

( a5 - address of disk status register ) 

( a4 = disk data register address ) 

{ a3 = CRC table address } 

( a2 ' return address ) 

( a n “ n ) 

{ - ) 

Step the drive head with interrupts off. Saves and restores 
the status register, 

( - ) 

( d2 = -1 if invalid crc or data field not found ) 

( d3 - low word is crc read, high word is crc calculated ) 

{ a6 = address of rbyte ) 

{ a5 = address of disk status register } 

( aH - disk data register address ) 

( a3 - crc table address ) 

( a2 = return address ) 

( al = buffer address ) 

( a n - n } 

( al = pointer to data ) 

( a2 = return address ) 

( a3 = pointer to crc table ) 

( - pointer to disk data register } 

( a6 = pointer to wbyte routine } 

Writes a data field onto the disk using the table pointed to by 
the contents of the A5 register* 

( a n - n ) 
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<wtrack> 

( al = pointer to data ) 

( a2 » return address } 

( a3 * pointer to crctable } 

{ a4 * pointer to disk data register ) 

( a5 - pointer to format information ) 

( a6 = pointer to wbyte ) 

( d2 = starting address information ) 

Writes one track of data to the disk. 

?diskrdy 

( - f ) 

Returns a true {-1) flag if the disk is ready. 

?trkO 

( - f ) 

Returns a true (-1) flag if on track 0. 

?wprot 

( - f ) 

Returns a true (-1) flag if write protected. 

crc 

{ nl n2 - n3 ) 


crctable 


iai-trk 


rbyte 

{ a3 = pointer to crctable ) 

( a4 = pointer to disk data register ) 

{ d3 B contains the current crc value ) 

Writes a byte of data to the disk. 

rheader 

( - n ) 

rtrack 

{ a n n - n ) 

step in 

( - ) 

Set dir signal to step in. 

stepout 

{ ~ ) 

trackdump 

( - ) 

wbyte 

{ a3= pointer to crctable ) 

{ a4 = pointer to disk data register ) 

{ dO = the byte to be written with upper bits =0 ) 
{ d3 = contains the current crc value ) 

Writes a byte of data to the disk. 

wsyne 

{ dO = number of times to be written ) 

( a4 = pointer to disk data register ) 

Write n bytes of zeros to the disk. 

wtrack 

{an-) 

Write track using IAI format to disk, 

~rimage 

"wimage 

{ - ) 
t - > 
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CRT DISPLAY WORDS 


els ( “ ) 

Clear the display screen. 

home ( - ) 

Positions the cursor in the first column of the first row on the 
screen (in the upper left hand corner), 

page ( - } 

If the screen is the current output device, clears the screen and 
places the cursor in the upper left corner of the screen, 

setcur ( x y * ) 

Position the curson at x t y, 

window { n - ) 

Set FORTH T s bottom display line to * n f where l<=n<=lD. 

voff { - ) 

Turn the video display off, 

von { - } 

Turn the video display on and off, decide in high level. 
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SOUND GENERATOR WORDS 


beep 

< - ) 

Make a beep. 

ringoff 

{ - ) 

Turns off timer interrupts. 

thp 

( n - ) 

Set up sound generator frequency. 

toff 

( “ ) 

Turn sound generator off. 

ton 

( * ) 

Turn sound generator on. 

tone 

{ pitch duration - } 

Emit sound with the specified pitch for the specified duration 
The duration is specified in ticks. 
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KEYBOARD WORDS 


I char 

{ char - ) 

Takes a character, as returned by <7k> , stores the character 
code in the system integer char t and stores a true (nonzero) 
value in the system integer char? (to indicate that a character 
is available, If the character is one of the "special” 
keys on the keyboard (KB1/2 t left shift , right shift f caps 
lock f left use-front f right use-front , left leap or right leap} 
Ichar will perform some special tests before storing the 
character code in char , If the special key is going down while 
one of the use-front keys is already down, and the special key is 
not the caps lock key, the special key will be marked as "down” in 
the modifiers array* If the special key is a caps lock key, the 
state of the modifiers array will not be affected* If the special 
key is going down while neither use-front key is down, the special 
key is marked as "down" in the modifiers array and, if the special 
key is one of the shift keys, the caps lock key is marked as "up M 
(off)* If the special key is going up and it is a caps lock key, 
the state of the modifiers array is not changed. If the special 
key is going up and it is not a caps lock key, it is marked as 
"up" in the modifiers array. The final special key test checks to 
see if the caps lock key is currently down. If it is, the LED on 
the caps lock key will be lit. Otherwise, the LED will be unlit. 

<?k> 

( - f ) 

Uses <<?k>> to see if a key is available and returns a true 
(nonzero) flag if a character is available. 

<<?k>> 

{ - flag } 

Returns a true (nonzero) flag if a key is available. First, 
checks to see if a key is currently available. If a key 
is already available, will exit immediately and return a true 
(nonzero) flag. If a key is not currently available, will spin 
in a loop calling do-event until either a key is available or 
until there are no more key events in the event loop. 

<key> 

{ - char ) 

Get a key, set char? to zero to indicate that no keys are 
currently available, and, if the system is in the middle of 
recording a learn sequence, record the character. 

?auto 

{ - f ) 

Returns a true (nonzero) flag if it is time to autorepeat 
the current character. 

?ctl 

( - f ) 

Returns a true (nonzero) flag if one of the USE FRONT keys is 
currently down. 

?ev 

< - f ) 

Returns a true (nonzero) flag if the keyboard event queue is not 
empty, if keyboard events are available. 
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?k { - f ) 

Return a true (non 2 ero) flag if the current character is not a 
special key* 

?kstat ( - n ) 

Returns the keyboard status* 

7kva! ( - c ) 

Returns the character code stored in char * Used to "peek" at 
the current character without affecting its current character 
status, 

?lex { - f ) 

Returns a true {nonzero) flag if the left leap key is 
currently down* 

?panic ( - f } 

Returns a true (nonzero) flag if the user hits the panic stop 
key, 

?rex ( - f ) 

Returns a true (nonzero) flag if the the right leap key is 
currently down, 

7shift ( - f ) 

Returns a true (nonzero ) flag if either of the SHIFT keys is 
down, 

?t ( - f ) 

Returns a true (nonzero) flag if a character is currently 
available* The character is consumed by ?t . 

@k ( - c ) 

Returns the next 'physical 1 character (the character code as 
returned by do-event). 

clear-auto ( - ) 

Turn off autorepeating. 

clear-special 

( - ) 

Clears out the shift state array to indicate that all of the 
special keys are up, 

clr-kbd ( - ) 

End playback of a learn sequence. 
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do-event ( - ) 

Removes a key event from the keyboard event queue and converts 
the event code into offset. The offset is used to index into a 
table which converts key press information into character 
information. Stores the character information into the system 
integer kval and stores a true (nonzero) flag into the system 
integer kstat to indicate that a key is available. If the 
character is one of the special keys, performs tests and actions 
similar to those performed by Ichar (except do-event's actions 
affect the shiftstate array instead of the modifiers array), 

down? ( n - f ) 

Checks to see if the special key corresponding to the number 
f n' is currently down. Returns a true (nonzero) flag if the 
key is down, 

keyboardoff { - ) 

Turn keyboard scan off, 

keyboarder! { - ) 

Turn keyboard scan on, 

playback? { - f ) 

Returns a true (nonzero) flag if there is a character to play 
back. 

playback { - c ) 

Return the next character to be played back, 
record { c - c ) 

Insert the character in the learn string currently being 
recorded, 

set-auto ( - ) 

Turn on autorepeating for the last key returned, 

sync-shif tkeys 

( - ) 

Store the actual physical states of the special keys, as 
stored in the system integer shiftstate , into the modifiers 
system integer, 

thislearn ( - addr n ) 

Return the address and length of the current learn string. 
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MODEM AND SERIAL I/O WORDS (HIGH-LEVEL) 

squish ( bytel byte2 byte3 byte4 - longword ) 

Uses the lowest order byte from each of the four values 
on the stack to create one longword ( 32 -bit) which is 
returned on the stack. The byte taken from the value 
on top of the stack will end up in the most-significant 
byte position of the longword and the byte taken from 
the fourth value on the stack will end up in the least- 
significant byte position. 

talk ( - ) 

Connect phone to line. 

thres.43 ( - ) 

Set energy detect threshold to -43 dBm. 
thres.48 ( - ) 

Set energy detect threshold to -48 dBm. 

tt.disable ( - ) 

Disable touchtone encoder. 

tt.enable ( - ) 

Enable touchtone encoder. 

txcr.disable 

( - ) 

Disable modem carrier. 

txcr.enable ( - ) 

Enable modem carrier. 

valid.tone.table 

( - ) 

wordlen ( n - ) 

Sets the number of bits per word. 

<dial> ( addr len - ) 

Dial the string pointed to by ’addr r and 'len 1 * 

char>tone ( char * ) 

Send DTMF if valid tone found. 

char>pulses ( char - ) 

Send pulses• 

dialchar ( char * ) 

Dials an ASCII char. 

getover { - ) 

getport# { - n } 
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initmodem ( - ) 

Reset the nodem. 

initphone ( - ) 

Initialize the modem and phone ACIA. 

initrs232 ( - ) 

Initialize the serial port. 

port>mem { addr len - ) 

Get a string of stuff into memory. 

pulses ( n - ) 

Send *n' pulses. 

send.tone ( n - ) 

’n' is the row/col data. Send a 50 ms DTMF. 
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MODEM AND SERIAL I/O WORDS (LOW-LEVEL) 


<box> 

( 

xl yl x2 

y2 

flag 

<line> 

( 

xl yl x2 

y2 

flag 

<point> 

( 

x y flag 

- 

) 


analog.loop.off 

( - ) 

Disable analog loopback. 


analog.loop.on 

( " ) 

Enable analog loopback. 

digital.loop.off 

( - ) 

Disable digital loopback. 

digital.loop.on 

( - ) 

Enable digital loopback. 

filter.high { - ) 

Set filter for normal operation. 

filter.low { - ) 

Set filter for call progress detection. 

init.ph.acia 

( - ) 

Set hpne UART to 1200 baud, 8 data bits, 1 stop bit, 
and no parity. 

{ - ) 

Set to answer mode. 

( - > 

Set to 300 bits per second (bps) FSK. 

( - ) 

Set to originate mode. 

( - ) 

Set to 300 bits per second (bps) PSK. 

( - > 

Mute phone. 

( - ) 

Place the phone off hook. 

( - ) 

Place the phone on hook. 


modem,ans 


modem,fsk 


modem,orig 


modem.psk 


mute 


offhook 


onhook 
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ph, rx 

( - byte ) 

Receive a byte from the telephone's rs232 port. 

ph. tx 

( byte - ) 

Send a byte to the telephone's rs232 port. 

pll.fast 

{ - ) 

Set PLL to fast response. 

pll.slow 

{ - ) 

Set PLL to slow response. 

row/col.table 

( - ) 

scrambler.disable 

( - ) 

Disable modem scrambler. 

scrambler. 

enable 
( - ) 

Enable modem scrambler. 

ser.rx 

( - byte ) 

Receive a byte from the rs 232 port. 

ser.tx 

( byte - ) 

Send a byte to the rs 232 port. 

spl.off 

( - ) 

Set pin 13 low. 

spl.on 

( - ) 

Set pin 13 high. 

sp2.off 

( - ) 

Set pin 16 low. 

sp2.on 

( - ) 

Set pin 16 high. 
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tFORTH SYSTEM INTEGERS 


active 

applic 

auto 

base 

blk 

bound 

chuff 

char 

char? 

clockO 

clockl 

crt 

csp 

diskerror# 

drive 

dticks 

edde 

endtable 

execbuf 

extant 

gticks 

gvect 

here 


Holds the address of the T active 1 vocabulary array. 

Holds the address of the next available location in the 
header area of the current open vocabulary. 


Holds the number used to indicate the numeric base currently 
being used for all number I/O, 


During the interactive execution of program control structures, 
bound is used to hold the start address of the program control 
structures code which is to be executed interactively. 

Holds the address of the keyboard input circular buffer. 


Used to hold the return stack pointer which is saved away 
before compilation and checked after compilation. 

Holds the most recent disk error number. 

Holds the number used to specify the drive type. 

Holds count for the disk countdown timer, 

I/O flag. If true {nonzero} output should be sent to the 
editor* 

Holds the end address of the RAM token table. 

Holds the address of the vocabulary 'extant' array. 

Holds count for a general countdown timer. 

Used as a general execution vector. 

Holds the address of the next available location in the 
code area of the current open vocabulary. 
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hid 

in 

intexecvecs 

inuse 

itx 

jdn 

kev 

kstat 

kval 

last^thline 

lasttok 

len 

limit 

locals 

localvoc 

location 

loops 

Ip 

maxblks 


During number formatting * holds the current offset into the 
string being constructed in the pad. 

Pointer used to mark word’s progress through the input stream, 
in always holds the address of the next byte to be examined by 
word in the input stream. 

Interrupt execution vectors * 


Holds the address of the current input text. 


Holds the length of the word most recently extracted from the 
input stream by word . 

Used to hold the end address of the block of text to be 
examined by the word interpret. 

Used during the compilation of local variables to keep track of 
the amount of local variable return stack storage space which 
is required by the definition currently being compiled. Used 
primarily by the words doloc , local * and ; , 

Holds the address of the temporary hidden vocabulary used 
to hold the names of local vocabularies. 

Used during the compilation of local variables to hold the 
address of the special, invisible vocabulary used to hold the 
names of the local variables used by the word currently 
being compiled. 

System integer used during the compilation of a 'do 1 loop 
program control structure to hold the amount of return stack 
space currently required by the definition being created. 

Used primarily by the words do , loop * +loop , doloc f 
and ; ■ 

I/O flag. If true (nonzero) output should be sent to the 
line printer. 
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raodifiers 


nesting 


nestype 


newest 


Systeni state flag* if true {nonzero) the system is in a 
temporary compiling state {for interactive execution of 
program control structures)- If false {0) the system is in 
the interpreting state. 

The nestype system integer is used to hold a flag which* 
during the compilation of program control structures* holds 
a f -l f if the program control structure currently being compiled 
is a 'do 1 loop or holds a 'O' if the program control structure 
being compiled is a 'begin 1 loop. Used by the compiling word 
{while} 

Holds the header address of the most recently defined colon 
definition. 


origin Holds the address of the start of the 'tFORTH* dictionary. 

pad Holds the address of a location 128 (decimal) bytes from the 

start of a 38^ (decimal) byte scratch location. The pad area 
is used by the number formatting operators and by the editor 
[CALC] function. 


panicked 

ramend Holds the address of the end of RAM memory. 


ramstart Holds the address of the start of RAM memory. 


ringSGundaddr 

Holds the address of a general ring sound routine- 


savenest 

savestate 

scontcopy 

screen 

screensize 

ser 

soundaddr 

soundcount 

spO 

special 


Holds the address of the start of display memory, 

I/O flag. If true (nonzero) output should be sent to the 
serial port. 

Holds the address of a general sound routine , 

Holds general sound count. 

Holds the address of the base of the parameter stack. 
Holds the address of the keyboard 'special 1 array. 
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state 

str 

strings 

targeting 

ticks 

tokens 

top 

vdelay 

vticks 

x 

y 


System state flag, if true (nonzero) system is in the compiling 
state- If false {0} the system in the interpreting state. 

Each time word gets the next word frc input string, it 

places the address of the character string in the str system 
integer. See the description for the system integer len also. 


Flag- If true (nonzero) target compilation is occurring. 

Holds time ticks. 

One of two system integers used to help in the assignment of 
tokens to new words ( lasttok is the other system integer used 
for this purpose). See the techical discussion on local 
variables - 

Holds the address which is one byte beyond the top of 
'tFQRTH x memory * 

Holds the value used to specify how long the video screen 
should stay 'on 1 on an unused terminal. 

Holds count for the video countdown timer. 

Holds 'tFORTH's column output position. 

Holds ’tFORTH's row output position. 
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tFORTH GLOSSARY 
(Alphabetic Listing) 


t 


Ichar 


Icsp 


Iptr 


M to 


# 


#> 


#s 


( n a - ) 

('store*) 

Stores the 32-bit value n into memory starting at address a. 

( char - ) 

Takes a character returned by <?k> , stores the character 
code in the system integer char , and stores a true (nonzero) 
value in the system integer char? to indicate that a character 
is available- 

( ” ) 

{'store-csp 1 } 

Saves return stack pointer during compilation, 

( n delta - } 

Store the value n into the save block area. 

Compile time: ( - ) 

( f quote r ) 

Run-time: ( - addr len ) 

Format: M ccc M 

Compiling, lays the string between quotes, and the runtime 
code < M >* into the definition being compiled. At runtime the 
address and length will be left on the parameter stack* 

{ addrl nl addr2 n2 - ) (’quote-to 7 ) 

Format: * ccc" <string name> T1 to 

Stores the string specified by the address and length (addrl 
and nl} into the string integer specified by name, addr2 and 
n2 are discarded, 

{ nl - n2 ) 

( 1 sharp 1 } 

Format: n <# #> 

Extracts the lowest order digit from the number on top of the 
stack and inserts it into the formatted numeric string being 
constructed in the pad. 

{ nl - a n2 ) 

{ 1 sharp-greater 1 ) 

Format: n <# ,,, #> 

Prepares a formatted numeric string for type, 

( n - 0 ) 

(* sharp-s *) 

Format: n <# ,,, #s #> 

Calls # until the number on top of the stack has been reduced 
to zero* 
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t 

( - token ) 

{'tick 1 ) 

Format: T <name> 

Returns the token for <name>; 

( 

( - ) 

( f paren 1 ) 

Format: ( ccc ) 

All characters between the starting left paren and the closing 
right paren are considered to be comments and are ignored by 
the FORTH compiler. 

* 

+ 

{ nl n2 - n3 ) 

( 1 times') 

Multiplies nl # n2 and leaves the 32-bit result n3* 

( nl n2 - n3 ) 

(* plus *) 

Adds nl plus n2 and leaves the 32-bit result n3. 

+1 

( n a - ) 

{ T plus-store 1 } 

Adds the 32-bit value n to the 32-bit value located in memory 
starting at address a. Memory at a is modified. 

+bit7 

( char - char * } 

{’plus-bit-? 1 ) 

Sets the seventh bit in the character byte. 

♦loop 

Compiling: { - ) 

( 1 plus-loop f } 

Executing: { n - } 

Format: do ... n +loop 

Program control structure used to implement definite loops. 
During execution, +loop adds 'n 1 to the current loop index. 

stable 

{ n - a ) 

{'plus-table') 

Converts a token table entry number to the token table entry 
fields address. 

♦ to 

{ nl n2 - ) 

('plus-to 1 } 

Format: nl <integer or local variable name> +to 

Adds nl to the current value of the integer or local variable 
specified by name. 

i 

( n - ) 

( 1 comma'} 

Lays the 32-bit value ’ n* into the next free location in the 
code area. The here pointer always points at the next free 
location in the code area. The here pointer is incremented by 
4 bytes. 
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-1 


-trailing 


-userounded 


.r 


,s 


/ 


/rood 


0 


0 < 


( nl n2 - n3 ) 

('minus 1 ) 

Subtracts n2 from nl and leaves the 32-bit result on the stack. 

( - “1 ) 

( r minus-one r ) 

Puts the constant value f -l f on top of the parameter stack. 

{ addr len - addr len* ) 

( 1 minus-trailing 1 ) 

Strips the trailing spaces from the string located at address. 


( n - ) 

( 1 dot') 

Prints the signed value on top of the stack followed by a 
trailing space. Prints in the current radix. 

( - ) 

{'dot-quote'} 

Format: ." ccc" 

May be used interactively or compiled into a definition. The 
compile-time action of ." is to lay the string between quotes 
into the definition being compiled. The run-time action of ." 
is to type the string between quotes out to the current output 
device. 


{ n w - ) 

('dot-r*) 

Prints the signed value T n T in a field which is f w T spaces wide. 


{ - ) 

{ T dot-s*) 

A nondestructive display of the items on the parameter stack. 

( nl n2 - n3 ) 

{* divide 1 ) 

Divides nl by n2 and leaves the 32-bit quotient on the stack, 

( nl n2 - n3 n4 } 

{’divide-mod 1 } 

Divides nl by n2 and leaves the 32-bit remainder, n3. and the 
32 -bit quotient, n4, on the stack. 


( - 0 ) 

( 1 zero *) 

Puts the constant T 0 T on top of the parameter stack, 

{ n - f ) 

( 1 zero-less-than’) 

Returns a true (-1) flag if n is less than zero. 
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0= ( n - f ) 

('zero-equal’} 

Returns a true (-1) flag if n is equal to zero. 

1 ( - 1 ) 

Puts the constant 1 1' on top of the parameter stack. 

1+ ( nl - n2 ) 

{'one-plus') 

Adds one to the number on top of the stack. 

1- ( nl - n2 ) 

('one-minus 1 ) 

Subtracts one from the number on top of the stack. 

2* { nl - n2 ) 

{ 1 two-times 1 ) 

Multiplies the number on top of the stack by two. 

2+ ( nl - n2 ) 

('two-plus') 

Adds two to the number on top of the stack. 

2- ( nl - n2 ) 

( 1 two-minus’} 

Subtracts two from the number on top of the stack. 

2/ ( nl - n2 } 

('two-divide') 

Divides the number on top of the stack by two. 

2drop ( nl n2 - ) 

{'two drop’) 

Discards the top two items on the parameter stack. 

2dup ( nl n2 - nl n2 nl n2 ) 

{’two dup') 

Duplicates the top two items on the parameter stack. 

3dup ( nl n2 n3 - nl n2 n3 nl n2 n3 ) 

('three-dup') 

Duplicates the top three items on the parameter stack. 

: ( - ) 

( 1 colon') 

Format: : <name> ...words... ; 

Defining word used to create new definitions. Puts the system 
in the compiling state, creates a new dictionary header using 
<name>, sets the smudge bit in the dictionary header so the 
definition will not be visible until completed. 
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t 

( ~ ) 

('semi-colon*) 

Used to terminate colon definitions* If the colon definition does 
not use local variables, : causes the word <;> to be compiled 
into a definition* If the colon definition does use local 
variables, ; causes the word <;lp> to be compiled into a 
definition* 

< 

( nl n2 - f ) 

( 1 less-than 1 } 

Returns a true (-1) flag is nl is less than n2. 

<"> 

( - addr len ) 

('brac-quote 1 } 

<"> is the run-time code for the word M * Pushes the address 
and length of the string on the stack* 

<"to> 

{ addrl nl addr2 n2 -> addr3 n3 } 

('brae-quote-to 1 } 

Run-time code for "to , 

<# 

( n - n ) 

( T less-sharp 1 ) 

Format: n <# * *, #> 

Marks the start of a pictured numeric conversion process* 

<+loop> 

{ n - } 

{’brac-plus-loop*) 

Run-time code for +loop . 

<Obran> 

( f - ) 

('brac-zero-bran') 

Run-time conditional branching primitive. A branch will occur 
if the flag passed to <0bran> is false (zero)* Can only 
handle short (-8l<n<80 hex} branching distances. Used by 
while, until, and if* 

<Obrani> 

{ f - ) 

{ f brac-zero-bran-long 1 } 

Run-time conditional branching primitive* A branch will occur 
if the flag passed to <0branl> is false {0}* Can be used for 
short and word (-80Gl<n<8000 hex} branching distances. Used 

by while , until * and if * 

<01eave> 

( f - ) 

{ r brac-zero-leave*) 

Run-time code used to conditionally leave from a 1 do*..loop* 
or 'do^.+loop 1 program control structure. 

<01eavel> 

( f - ) 

('brac-zero-leave-long') 

Run-time code used to conditionally leave from a 'do...loop' 
or 'do...+loop* program control structure* 
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<;> 

Parameter; ( - ) 

( 1 brac-semi 1 ) 

Return: ( nl n2 - ) 

Run-time word compiled by ; . 

<;lp> 

{ - ) 

{* brae-semi-local *) 

Run-time exit word compiled at the end of colon definitions 
in which local variables are used. Compiled by ; - 

<<?k>> 

{ - flag ) 

{ T brac-brac-question-k*) 

Returns a true (nonzero) flag if a key .s available. 

<> 

{ nl n2 - f ) 

( 1 not-equal T ) 

Returns a true (-1) flag if nl is not equal to n2. 

<7k> 

( “ f ) 

{ f brac-question-k r ) 

Uses <<?k>> to see if a key is available and returns a true 
(nonzero) flag if a character is available. 

<abort"> 

(fan-) 

{ 1 brac-abort-quote*) 

Run-time code used by abort" . 

<addto> 

( n - ) 

( f brac-addto 1 } 

Close the current open vocabulary and open the vocabulary 
specified by the token 'n*. 


<avg> 


<becode> 

( n - ) 

('brac-becode'} 

Remove the code corresponding to the token 'n'. 

<behead> 

( a - ) 

('brac-behead'} 

Remove the header located at address 'a' . 

<bevoc> 

{ n - ) 

( 1 brac-bevoc' ) 

Completely eliminate the vocabulary specified by the token f n 

<bran> 

( - ) 

( 1 brac-bran'} 

Run-time unconditional branching primitive. Always causes 
a branch to occur. Can only handle short (-8l<n<80 hex) 
branching distances. Used by again and else . 


- 217 - 


<branl> 


{ - ) 

('brac-bran-long') 

Run-time unconditional branching primitive. Always causes 
a branch to occur. Can handle short <-8l<n<80 hex) and 
word (-8001<n<8000) length branching distances. Used by 
leave and else . 


<csize> ( a - n ) 

('brac-code-size') 
Returns the code size 
is located at address 


n' 

'a' 


in bytes, of the word whose code 


<deactivate> 


<demit> 


<do> 


{'brac-deactivate') 

{ n - ) 

Removes the vocabulary specified by the token 'n' from the 
current search order (removes its token from the 'active' 
array, see active ), 

( char x y - } 

(‘brae-display-emit'} 

Draw the character at position x,y on the screen. 

( nl nZ - ) 

( 1 brac-do 1 ) 

Run-time code for do * 


<empty> { n - } 

( f brac-empty 1 } 

Purges all words from the vocabulary specified by the token r n T 

<eta> ( a n - 0 | If token 'n 1 is not found. ) 

( al n - a2 | IF token is found. ) 

Takes the vocabulary address f al f and the encoded token 
value 'n 1 and, if successful, returns the encoded token address 


<exit> 

( 1 brac-exit 1 } 


<exitlp> 

(*brac-exit-lp*} 


<find> 

( al a2 nl - 

a2 


( al aZ nl - 

a3 


( f brac-find f ) 
Searches for the 

name 


f | If not found 
n2 t 1 If found 


’a2’ 

’al* 


of length 'nl* in the vocabulary which starts at address 
If the word is found in the vocabulary, <find> will return the 
dictionary header address T a3 r for the word, the token for the 
word r n2 f and a true flag (nonzero). If the word is not found 
in the vocabulary <find> will return the original name string 
address f a2* and a false (zero) flag. 
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<key> 


{ - char ) 

{ 1 brae-key 1 ) 

Get a key, set char? to zero to indicate that no keys are 
currently available, and, if the system is in the middle of 
recording a learn sequence, record the character. 

<leave> { - } 

{ f brae-leave 1 } 

Run-time code used to unconditionally leave from a 'do..,loop* 
or f do...+loop r program control structure. 

<leavel> 

<load> ( n * ) 

('brac-load 1 } 

Reads block 'n' from disk into memory and interprets its 
contents. 

<locO> { - n ) 

( 1 brac-loc-zero 1 } 

A special fast word used to access the first local variable 
on the return stack. 

<locl> ( - n ) 

{ f brac-loc-one f } 

A special fast word used to access the second local variable 
on the return stack. 

<local> { - n ) 

{’brac-local 1 ) 

Generic word used to access the third, and all subsequent local 
variables on the return stack. 

<locals> { - } 

( 1 brae-loeals 1 } 

First local variable word compiled into a tForth word which 
uses local variables. 

<loop> ( - } 

('brac-loop 1 ) 

Run-time code for loop. 

<purge> ( n - ) 

(*brac-purge*) 

Removes the word corresponding to the token f n' from the 
dictionary. 

<quit> ( - ) 

('brac-quit*) 

Low-level word used by quit. 
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<rblock> 

( addr b# - flag ) 

( 1 brac-r-block 1 ) 

Read block number f b f into the buffer located at address 
*addr T . If no error occurs during read, the flag returned will 


be false (0). 


<step> 

( " ) 

{’brac-step ! ) 

Step the drive head with interrupts off. Saves and restores 
the status register. 

<string> 

( - addr len ) 

( 1 brac-string 1 ) 

Run-time code for string integers created with the defining 
word string. Pushes the address and length of the string 
stored in the string integer on the stack. 

<siun> 



<sumrounded) 


<wblock> 

( a n - f } 

{ T brac-write-block*) 

Write the block of data contained in the buffer located 
at address f a T to block number on the disk. 

If no error occurs during the write operation the flag 
returned will be false (0)♦ 

<word> 

{ addrl addr2 * addr3 n addr4 ) 

('brae-word 1 ) 

Lower-level routine used by word. 

> 

( nl n2 - f ) 

{* greater-than') 

Returns a true (-1) flag if nl is greater than n2. 

{ nl n2 - f } 

{ 1 equal 1 ) 

Returns a true (-1) flag if nl is equal to n2. 

>r 

{ nl - | return stack: - nl ) 

( 1 to-r 1 ) 

Removes nl from the parameter stack and places it on the 
return stack. 

?auto 

( " f ) 

( ' question-auto') 

Returns a true (nonzero) flag if it is time to autorepeat 
the current character. 
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?csp 


?etl 

?diskerror 

?dup 

?ev 

?k 

?keystep 

?kval 

?lex 

7pairs 

?panic 


( - ) 

{'question-csp 1 } 

Compares the current return stack pointer to the return stack 
value saved away previously in the csp system integer- If the 
two addresses are not equal the system will abort with an 
"unpaired' 1 message. 

{ - f ) 

{ 1 question-control 1 ) 

Returns a true (nonzero) flag if one of the use-front 
keys is currently down. 

( n - ) 

( 1 question-disk-error’} 

?diskerror will take the error code from the parameter stack, 
analyze it, and print an error message which tells the user 
what type of disk error occurred. 

( n - n n ) or (0-0) 

('question-dupe') 

Duplicates the value on top of the stack if it is nonzero. 

( - f ) 

( r question-event 1 ) 

Returns a true (nonzero) flag if the keyboard event queue 
is not empty, if keyboard events are available. 

( - f ) 

('question-key 1 } 

Return a true (nonzero) flag if the current character is not 
a special key. 


( - c ) 

(* key-value 1 ) 

Returns the character code stored in char . Used to f 'peek ,f 
at the current character without affecting its current character 
status. 

( - f ) 

{'question-left-leap') 

Returns a true (nonzero) flag if the left leap key is currently 
down. 

( * ) 

('question-pairs’) 

Checks for properly paired conditional statements. Aborts 
with an error message if conditionals are improperly paired. 

( - f ) 

('question-panic’) 

Returns a true flag if the user hit the panic stop key. 
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?rex 

?shift 

?stack 

?stackerr 

?t 

e 

@k 

@ptr 

aabs 

abort 

abort" 

abs 

addr 


( ' f ) 

('question-right-leap') 

Returns a true flag if the the right leap key is down. 

( - f ) 

('question-shift' ) 

Returns a true flag if either of the shift keys is down. 

( - f } 

('question-stack') 

Checks the status of the parameter stack. A false (0) flag 
will be returned if the stack is ok. 

{ ~ ) 

{’question-stack-error) 

Uses ?stack to check for stack underflow or overflow, 

( - f ) 

('question-terminal’} 

Returns a true (nonzero) flag if a character is currently 
available. The character is consumed by ?t . 

( a - n ) 

(’fetch') 

Places a copy of the 32-bit value located in memory starting 
at address a on top of the parameter stack* 

( - c ) 

{* fetch-key r ) 

Returns the next 1 physical T character {the character code as 
returned by do-event)* 

{ n - a ) 

{* fetch-pointer 1 } 

Get a pointer from the system id area. 


( r - ) 

( 1 abort^quote 1 } 

Format: f abort 11 ccc 11 

If the flag passed to abort" is true (nonEero), a forced 
system abort process will occur* 

{ n - |n| ) 

{'absolute’) 

Returns the absolute value of the number on top of the stack. 

( <name> - a } 

('adder') 

Format: <name of integer> addr 

Returns the address of the storage location for the integer 
specified by name. 
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addto ( - } 

Format: addto <vocab-name> 

Opens the vocabulary whose name immediately follows addto . 

afilter 

again { - ) 

Format: begin ... again 
Used to implement endless loops * 

aint 

align { - ) 

Aligns the here pointer to an even address boundary, 
allot ( n - ) 

Tries to allocate bytes in the code area of the currently 
open vocabulary. 

and ( nl n2 - n3 } 

Performs a bit^by^bit logical AND using nl and n2. Returns the 
32 -bit result (n3) on the parameter stack. 

and I { b a - ) 

{ f and-store 1 ) 

Performs a bit-by-bit logical AND operation using b and the 
byte located in memory starting at address a. The byte at 
address a is modified. 

arithmetic { - ) 

Name of the vocabulary in which the basic arithmetic functions 
are located, 

array Compiling: ( n - ) 

Executing: ( ** a ) 

Format: n array <arrayname> 

Create an array of length n and name <arrayname>. Later use 
of <arrayname> will return the address of the start of the array, 

ascii { - n ) 

Format: ascii <char> 

Returns the ascii value of <char>, 

assign ( al a2 n - ) 

Assigns a token to and builds a header for a new definition 
in the vocabulary specified by the address r al’ using the name 
located at the address 1 a2 1 with the length . 

asqrt 

backelse ( nl - n2 nl ) 

Used by then to backpatch a forward else branch offset. 

becomes ( - ) 
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beep 

begin 

begin 

behead 

bevoc 

blit 

block 

cl 

c f 

c, 

c@ 

call 

check 


{ - ) 

Hake a beep- 

{ - ) 

Format: begin ... again 

until 

Used to mark the start of an endless or indefinite program loop. 

( - ) 

Format: behead <name> 

Remove the header of the definition whose name immediately 
follows behead . 

( - ) 

Format: bevoc <name of vocabulary) 

Removes the vocabulary name and all its words, 

( - n ) 

( 'byte-literal 1 ) 

Byte length version of lit. 

t n - ) 

Tries to read block T n T into memory. If block 'n' has 
already been read into the block buffer, block will do 
nothing. 

{ b a - ) 

{ f C“Store T ) 

The least significant 8 bits of the 32"bit value, b, on the 
parameter stack are stored into memory starting at address a. 

{ - a } 

( 1 c-tick 1 ) 

Format: c 1 <name> 

Leaves the address of the code field of <name> . 

( c - ) 

{’c-comma*) 

Compiles the byte value 1 c* into the next available 
location in the code area. 

{ a - b ) 

('c-fetch') 

Places the 8-bit value from address a on the stack. 


(an-) 

Format: <string integer name> check 

Prints the ascii values for each character in the string 
currently stored in the string integer specified by name. 

If the string integer is empty, an error message is displayed. 
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clear-auto 

( - ) 

Turn off autorepeating. 

elr-kbd 

( - ) 

('clear-keyboard'} 

End playback of a learn sequence. 

els 

( - ) 

{'dear-screen') 

Clear the display screen. 

amove 

( al a2 u - ) 

('c-move') 

Moves the 'u' bytes located starting at the source address 
'al' to the destination address 'a2’. 


compile 


compile, 

{ n - ) 

(Compile-comma 1 } 

Lays the token value passed on the stack into the dictionary 
at the current here address* 

copy 

{ nl n2 n3 - ) 

Copy blocks number 'nl* through 'n2' to the blocks starting 
at block number 'n3'. 

copyOO 

( nl n2 n3 - ) 

Copy blocks number 'nl* through 'n2' from the source disk to 
the blocks starting at block number ’n3' or the destination disk. 

cr 

( - ) 

{'c-r') 

Emit a carriage return/linefeed. 

create 

( - ) 

Format: create <name> 

Assigns a token to and creates a header entry for <name> in 
the current open vocabulary. 

c reatevoc 

( al n - a2 ) 

Create an empty vocabulary using the image cf an empty vocabulary 
located starting at address 1 al 1 and assign it the token ’n 1 , 
Returned address 1 a2 1 is unused. 

crlfscroll 

( - ) 

Emit a carriage return and linefeed. Blank the new line out and 
scroll if necessary. 

csize 

( - n } 

( 1 code-size T } 

Format: csize <name> 

Returns the code size of the word specified by <name> . 
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ctl 

{ - ) 

{ f control 1 ) 

Format; ctl <char> 

Make <char> a control character. 

deactivate 

( " ) 

Format: deactivate <vocab-name} 

Removes the vocabulary whose name immediately follows 
deactivate from the current search order. 

decimal 

( - ) 

Set the base to ten. 

decode 

( nl - n2 } 

Turns an encoded token number into a decoded token number. 

demit 

( c - > 

{*dispiay-emit 1 ) 

Emit the character to the screen. If the character is a 
cr perform a carriage return/linefeed and scroll if necessary. 
If the character is the ’del 1 (delete) character erase the 
previous character on this line (if any), 

depth 

( - n ) 

Returns the number of items on the stack. 

diff? 

( al a2 n -> 0 1 If strings match ) 

( al a2 n -> a3 "1 1 If strings don't match ) 

Compares the first T n* characters in the strings located at 
addresses 1 al' and T a2 1 . 

digit 

( nl n2 - n3 c ) 

Extracts the least significant digit from the number, nl, on 
the stack (using the specified base, n2) and leaves ascii value 
for the digit, c, and the remaining number, n3 on the stack. 

do 

Compiling: ( * ) 

Executing: ( nl n2 - ) 

Format: nl n2 do ... loop 
nl n2 do ... n3 +loop 

Marks the start of a definite program loop. 

do-event 

( - ) 

Removes a key event from the keyboard event queue and converts 
the event code into offset. The offset is used to index into a 
table which converts key press information into character 
information. 

doff 

{ - ) 

Tries to turn the disk drive(s) off. 

doloc 

{ - f ) 

(’do-local 1 ) 

Used by interpret . Checks to see if the word just extracted 
from the input stream belongs to a local variable. 
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don 

down? 

drop 

dump 

dup 

ebuf 

eerait 

else 

emit 

empty 

emptyvoc 

encode 

error 

eta 

exa 


{ - ) 

Tries to turn the disk drive(s) on. 

( n - f ) 

Checks to see if the special key corresponding to the number 
*n' is currently down. Returns a true (nonzero) flag if the key 
is down. 

I nl - ) 

Discards the top item from the stack. 

(an-) 

Displays the contents of 'n' bytes of memory starting at 
address 'a*. 

( nl - nl nl ) 

Duplicates the value on top of the stack. 


{ c - ) 

( ' editor-enit 1 ) 

Emit the character to the editor. 

Compiling: ( * ) 

Executing: ( f - } 

Format: if ... else ... then 

Inner decision point in the * if...else.,,then 1 conditional program 
control structure* 

{ C - ) 

Output the character to all active output devices. 

( - ) 

Purges all words from the current vocabulary. The words in 
the forth vocabulary cannot be purged. 

{ - addr ) 

Returns the address of the 18 decimal byte image of an empty 
vocabulary. 

{ nl - n2 } 

Takes the decoded token number from the top of the stack, 
encodes it, and returns the encoded token number on top of 
the stack. 


{ n - a f } 

Tries to return the address of the token table entry for the 
token. If successful returns the token table entry address and 
a true (nonzero) flag. Otherwise, returns a false (0) flag. 
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execute 


existing 

exit 

fill 

find 

finish-lex 

fnderr 

format 

forth 

forward 
freetoken 

froom? 

function 

get( 

getphrase 

goto 


{ n - ) 

Executes the word corresponding to the token 'n 1 passed on 
the stack. 

( - ) 

Displays the names of and parents of all vocabularies, 

( - ) 

Terminates execution of the current definition and transfers 
control to the definition which contains the current definition. 

( a u b - ) 

Format: *start address’ 'count 1 ’fill character 1 fill 

Replaces the u bytes located in memory starting at address a with 
the byte value b. 

{ a ni - n2 true 1 If found in search order ) 

{ a nl -> false 1 If not found in search order } 

Searches the through the dictionary {uses the current search 
order) looking for the definition whose name matches the name 
at the address 'a 1 with length , nl f . 


{ - ) 

{ 1 find-error r ) 

Prints a ’'can't find 11 error and aborts. 

( - ) 

Formats a disk using the IAI disk format. 

{ - } 

This is the main tFORTH vocabulary. It contains all of the 
’standard 1 FORTH words supported by tFORTH and all of the 
tFORTH FORTH extension words. Execution of forth will cause 
the forth vocabulary to become the first vocabulary in the 
search order. 


( - ) 

Prints an "unassigned token" message and aborts* 


( - ) 

Selects base sixteen (hexadecimal) as the current radix. 
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hex 


hidden ( - ) 

Vocabulary which contains all of the editor words, 

hold ( c - ) 

Format: <# .*• ascii c hold #> 

Inserts the character (ascii value) on top of the stack into the 
formatted numeric string currently being constructed in the pad, 

home ( - ) 

Positions the cursor in the first column of the first row on the 
screen (in the upper left hand corner). 

1 ( - n ) 

Puts a copy of the top item on the return stack on top of the 
parameter stack. During execution of a do,.,loop, the top item on 
the return stack is the index for the current loop. 

idbloek { - f ) 

Read one of the two edde id blocks. The flag returned will be 
true (nonzero) if an error occurs during the read. 

if Compiling: { - ) 

Executing: { f - ) 

Format: if then 

if else ... then 

Marks the start of the 'if,..then’ or T if,,.else,,.then’ 
conditional program control structures. 

lamed iate { - ) 

Sets the ’immediate' bit (bit 6) of the most recently defined 
colon definition so that whenever the word is encountered 
during compilation, it will be compiled rather than executed. 

inrange ( nl n2 n3 - f ) 

Returns a true (-1) flag if the value nl is greater than or equal 
to the lower limit n2 and less than or equal to the upper limit n3 
(i,e. n2 < nl < n3 }. 

into ( - n ) 

{'int-O'} 

Runtime code for integers located in integer tier 0. 

inti ( - n ) 

(’ int-1*} 

Runtime code for integers located in integer tier 1, See into. 

int2 ( - n ) 

( f int-2 f ) 

Runtime code for integers located in integer tier 2, See into. 

int3 ( - n ) 

( f int-3 1 } 

Runtime code for integers located in integer tier 3- See into. 
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intk 

{ - n ) 

( ’ int-4*) 

Runtime code for integers located in integer tier 4. See into. 

int5 

( - n ) 

(’int-5') 

Runtime code for integers located in integer tier 5* See into. 

int6 

( ” n } 

( * int-6* } 

Runtime code for integers located in integer tier 6. See into. 

int7 

( - n ) 

( ’int-7 1 ) 

Runtime code for integers located in integer tier 7* See into. 

int8 

{ “ n ) 

(* int-8 1 } 

Runtime code for integers located in integer tier 7* See into. 

integer 

Compiling: { n * ) 

Executing: ( - n ) 

Format: n integer <integername> 

At compile-time integer creates a named 4-byte data location 
and initializes the location with the value r n T * The run-time 
action of the child words created by integer is to push the 
current contents of their 4-byte storage location on the stack. 

interpret 

( a 1 - ) 

interpret parses words in the input stream and either executes 
them (if they are executable Forth words), places them on the 
stack (if they or numbers), or aborts if it does not know what 
to do with the word. 


interpretphrase 


invoc 

( a - n ) 

Returns the token 'n* of the vocabulary which contains address f a 

ioff 

( - ) 

Turns interrupts off. 

ion 

( - } 

Turns interrupts on. 

key 

( - c } 

Waits until a printable character (8<ascii code<7F} is typed at 
the keyboard. Returns the ascii value of the character on the 
stack. 


leamstrings 
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leave 


( - ) 

Immediately and unconditionally reroutes program execution out of 
the current "looping’ 1 program control structure. Hay be used in 
’begin’ loops or in f do T loops. 

lit ( - n ) 

Code definition which transfers the long-word (32-bit) literal 
value pointed to by the instruction pointer to the parameter 
stack. The instruction pointer t ip t is incremented by 4 bytes. 
Used by literal . 

literal ( n - ) 

literal is used to compile constant data into a definition, 
literal will also compile the token of a word which will push 
the constant data onto the parameter stack when the definition is 
later executed. 

load ( n - ) 

Loads block f n T from the disk. 

local ( - } 

Format: local <name for local variable> 

Creates a named local variable. The local variable is not 
initialized to any value. Executing the name of the local 
variable will place the value of the local variable on top of 
the parameter stack. 

loop ( - ) 

Format: do ... loop 

Marks the end of the ’do...loop 1 definite loop program control 
structure. 

max { nl n2 - n3 ) 

Compares nl and n2 and returns the greater value. 

min { nl n2 - n3 ) 

Compares nl and n2 and returns the lesser value. 

mod ( nl n2 n3 ) 

nl is divided by n2 and the 32"bit remainder, n3, is left on 
top of the stack. 

move ( al a2 u - } 

Special version of cmove , 

ms ( n - ) 

Wait f n r milliseconds. 

n' ( - a ) 

{*n-tiek' ) 

Format: n 1 <name> 

Returns the address of the dictionary header area for the 
word specified by <name>. 
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name 


needforth 
needtext 
negate 

nest 

nip 

noop 

noroom 

not 

not I 

number 

numerical 

oddadjust 

off 


on 

open? 


t n - ) 

Print the name of the definition which corresponds to 
the token 'n', 


{ n - -n ) 

Returns the two f s complement of n, i,e, *n T is subtracted from 
zero (O^n), 

{ - ) 

Used by all words which start program control structures* 


( nl - n2 ) 

Takes the ones complement of the 32~bit value on top of the 
parameter stack. Returns the 32-bit result on top of the 
parameter stack, 

{ a - ) 

{ 1 not-store 1 ) 

Takes the one's complement of the 8 bits of data located in 
memory starting at address a. The byte length result is stored 
into memory at address a, 

( a nl n2 - f | If conversion is not successful, ) 

( a nl n2 - nj f | If conversion is successful. } 
Converts the string of length nl located starting at address a 
to a number, n3, using base n2. 


( n - ) 

Format: <name of local variable or integer) off 
Sets the value of the local variable or integer specified by 
name to zero. The value of the integer or local variable 
placed on the parameter stack when the local variable or 
integer name was executed is discarded* 

( n - ) 

Format: <name of local variable or integer) on 

Sets the value of the local variable or integer specified by 

name to negative one. 
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or 

or I 

outofroom 

over 

packforth 

page 

perait 

playback 

playback? 

purge 

quit 

r> 

r@ 


{ nl n2 - n3 ) 

Performs a bit-by-bit logical or using nl and n2. 

Returns the 32-bit result (n3) on the parameter stack. 

( b a - ) 

('or-store') 

Performs a bit-by-bit logical OR operation using b and the 
byte located in memory starting at address a. The byte length 
result is stored into memory at address a. 


( nl n2 - nl n2 nl ) 

Places a copy of the second item on the stack on top of the stack. 


( * ) 

If the screen is the current output device, clears the screen 
and places the cursor in the upper left corner of the screen. 

{ char - ) 

(’parallel-emit’) 

Send the character out through the parallel port. 

( - c ) 

Return the next character to be played back. 

{ - f } 

Returns a true (nonzero) flag if there is a character to play 
back. 

( " ) 

Format: purge <name> 

Removes the word spedfed by <name> from the dictionary. 

( ' ) 

quit is the word which runs FORTH. Clears the return stack and 
puts the system in the interpreting state. After quit is 
executed the system will be waiting for user input for user input 
to interpret and execute. 

( n - | return stack: - n ) 

( f r-from T ) 

Transfers the top item on the parameter stack to the top of 
the return stack. 

( - n ) 

( 1 r~fetch f } 

Puts a copy of the top item on the return stack on top of the 
parameter stack. r@ performs the same function as i but r@ 
is normally used outside of do...loops. 
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raddr 


( - a ) 

( T return-address T ) 

Copies the return information stored on the return stack. 

Uses the return information to calculate the address where the 
next token to be executed in the definition at the next higher 
execution level is located (calculates the previous location of 
the ip pointer). Used by compile . 

ramchecksum 

recal ( - n ) 

Recalibrate the disk drive to track 0* 

record ( c - c ) 

Insert the character in the learn string currently being recorded, 
recycle { n - ) 

Reclaims the token table space for the token ’n 1 , 

recycledtoken 

( - token ) 

recycledtoken checks to see if any previously assigned tokens 
are now available for re-assignment, 

restore 

re top { a - ) 

Lower level word used to open a vocabulary. Moves the upper half 
of the dictionary up so that the new top of dictionary is at 
address f a T . 

ringoff ( - } 

Turns off timer interrupts. 

romchecksLuu 

rot ( nl n2 n3 “ n2 n3 nl } 

( 1 rote T ) 

Rotates the third item on the stack to the top of the stack. 

rpl 

rub ( - ) 

Erase the previous character on the current line {if any), 
safety ( a - ) 

Reclaim the token table space for the token whose header 
is located at address 'a', 

same? { al a2 n -> f ) 

Returns a true (nonzero) flag if the first T n’ characters in the 
strings located at and 'a2' are the same. 
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save? { - ) 

( f save-question-mark 1 ) 

Aborts if the disk is write-protected. 

scanfor { c - ) 

Looks for the next word in the current input stream which is 
surrounded by the delimiter character, c. Sets the in , str , 
and len system variables. 

searched ( - ) 

Display the vocabulary search order. 

semit { c * } 

{’serial-emit 1 ) 

Emit the character to the serial port, 
set-auto { - ) 

Turn on autorepeating for the last key returned, 
setcodesize ( - ) 

Set the code size field for the current open vocabulary. 

Set the odd size flag if necessary. 

setcur ( x y - } 

Position the cursor at x,y. 

shl ( nl n2 - n3 ) 

{ 1 shift-left' ) 

Shifts the bits in ’nl* bits to the left. Leaves the 32-bit 

result,^3*, on the parameter stack. 

shr ( nl n2 - n3 ) 

('shift-right 1 ) 

Shifts the bits in ’nl 1 T n2* bits to the right. Leaves the 32-bit 
result, 'nS 1 , on top of the parameter stack. 

sideO ( - ) 

Select side 0. 

sidel ( - } 

Select side 1. 

sign ( n. - ) 

If the number on top of the stack is negative, sign will insert 
a minus sign into the formatted numeric string being constructed 
in the pad . 

spT 

sp@ 

space ( - ) 

Emit a space to the current active output devices. 
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spaces ( n - ) 

Emit 'n' spaces to the current active output devices. 

stepin ( - ) 

Set drive to step in* 

stepout ( - ) 

Set drive to step out. 

string Compiling: (an-) 

Executing: {-an} 

Format: w ccc" string <stringname> 

At compile-time string creates a named, multi-byte string 
storage area in the dictionary and initializes the storage area 
with the characters between the quotes* The run-time action 
of the child words created by string is to push the address 
and length of the string currently stored in the string storage 
area on the stack. 

stub { - ) 

Format: stub <name> 

Uses create to assign a token to and create a dictionary 
header for <name>, Stores a 0 in <name> 1 s token table entry so 
<name> will not have any corresponding code area. 

sw 

swab { nl - n2 ) 

Exchanges the lower two bytes of the top value on the stack. 

swap { nl n2 n2 nl } 

Exchanges the top two items on the parameter stack. 

syne-shiftkeys 

( - ) 

Store the actual physical states of the special keys, as 
stored in the system integer shiftstate , into the modifiers 
system integer. 

temp 

then ( - ) 

Format: if *,. then 
if ... else ,.. then 

Harks the end of the f if...then r or T if*,.else...then f conditional 
program control structures. 

thislearn (-an) 

Return the address and length of the current learn string* 

thp ( n - } 

Set up sound generator frequency. 

thru { nl n2 } 

Loads block number f nl* through block number , n2 t from disk. 
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tier 

tip 

to 

toff 

ton 

tone 

type 

LI, 

u.r 

u< 

unnest 

unpackforth 

until 

user 


< - ) 

The first byte of a multi-byte token is called a tier. The 
tiertokens have to be in order. Every 256 definitions in the 
dictionary takes up a new tier in the token table. Those tiers are 
named tier! tier 2 tierj up to tier 9 (10 times 256 words in the 
dictionary), tier is never executed alone. 

( a - ) 

Toggles memory or I/O port location, 

( nl n 2 - ) 

Format: nl <name of local variable or integer> to 
Replaces the current value of the integer or local variable 
specified by name with the 32-bit value nl. The value placed 
on the stack when the local variable or integer name was executed 
is discarded, 

( - ) 

Turn sound generator off, 

( * ) 

Turn sound generator on. 

( nl n 2 • ) 

Emit sound with the pitch t nl t for the duration T n2 f . 

The duration is specified in ticks, 

{ a n - ) 

Types the 1 n f characters located in memory starting at address 
’a’ out to the current output device, 

( n - ) 

Prints the unsigned value on top of the stack followed by a 
trailing space. 

( n w - ) 

Prints the unsigned value r n* in a field which is spaces wide. 

( ul u 2 - f ) 

{ 1 u-less-than*} 

Returns a true {'-l} flag if the unsigned value ul is less than 
the unsigned value u 2 

( - ) 

Used by all words which end program control structures. 


( f - ) 

Format: begin , f until 

Conditional exit/branching word used at the end of the 
‘begin,,.until 1 indefinite loop program control structure, 

{ " ) 

Vocabulary to which all user defined words are added. 
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vocab 

( - ) 

Hove the current execution vocabulary to the top of the search 
order by placing its token at the start of the active array. 

vocab? 

( n - f ) 

Returns a true (nonzero) flag if the token on top of the stack it 
the token for a vocabulary. Returns a false (0) flag otherwise. 

vocabulary 

( - ) 

Format: vocabulary <vocabname> 

Create a new, but inactive, vocabulary. 

voff 

{ - ) 

('video-off'} 

Turn the video display off. 

von 

( - ) 

('video-on') 

Turn the video display on and off. 

vopen 

( n - a ) 

Returns the address of the opening point for the vocabulary 
which corresponds to the token. 

w! 

( w a - ) 

('word-store'} 

The least significant 16 bits of the 32-bit value, b T on the 
parameter stack are stored into to memory starting at address a. 

w f 

( w - ) 

{ r w-comma 1 } 

Stores the word length value 1 w 1 into the next available spot 
in the code area of the currently open vocabulary. 

w€ 

( a - w ) 

('word-fetch') 

Places the 16-bit value located in memory starting at address a 
in the least significant word of a 32 -bit value on top of the 
parameter stack. The upper 2 bytes (16 bits) are set to zero. 

wblock 

{ addr b - } 

{'write-block') 

Write the block of data located in RAM starting at address 'addr 1 
to block number ’b 1 on the disk* 

wblocks 

{ nl n2 - n3 n*4 ) 

(* write-blocks') 

Write 'nl' blocks, starting with block 1 n2 l , to disk from memory 
starting at the address of the here pointer. 
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while 

Compiling: ( - ) 

Executing: ( f - ) 

Format: begin ... while ( ... while ) ... again 

begin ... while ( ... while ) ... until 

do ... while { ... while ... ) ... loop 

dO ... while ( ... while ... ) ... +loop 

Inner decision/branching point in the ’begin...until' , 

'begin,..again’, 'do...loop', or 'do...+loop' program control 
structures. 

window 

( n - ) 

Set FORTH's bottom display line to 'n' where l<=n<=10. 

wlit 

( - n ) 

{ 1 w-lit') 

Code definition which transfers the word-length (16-bit) literal 
value pointed to by the instruction pointer to the parameter 
stack and increments the instruction pointer by 2 bytes. Used 
by literal. 

word 

( - ) 

Looks for the next word in the current input stream which is 
surrounded by at least one space. Sets the in, str, 
and len system variables accordingly. 

words 

( - ) 

Displays a list of all words in the vocabulary which is first in 
the search order* 

wtrack 

(an-) 

( r write-track 1 ) 

Write track using IAI format to disk. 

xor 

( nl n2 - n3 ) 

Performs a bit-by-bit logical xor using nl and n2. 

Returns the 32-bit result on the parameter stack* 

xor! 

( b a - ) 

('exclusive-or-store') 

Performs a bit-by-bit logical XQh peration using b and the 
byte located in memory starting at address a. The byte length 
result is stored into memory at address a. 

i 

( - ) 

( 1 left-bracket T ) 

Turns the FORTH compiler on. 

['] 

( - token ) 

(* brae-tick-brac’) 

Format: : <name> [*] <definition-naroe> ; 

[■] must be used within a colon definition* [ T ] will return the 
token for the definition whose name immediately follows it 
in the colon definition* 
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[compile] ( - ) 

( 1 brac-compile-brac') 

Compiles the token of the word which immediately follows 
it into the definition currently being constructed. 

] ( - ) 

('right-bracket*) 

Turns the FORTH compiler off. 

(elsethen) ('curly-else-then') 

Lower-level compiling word used by else and then. 

{loop} ( nl n2 - ) 

{'curly-loop') 

Shared routine used by the loop termination words loop , 
+loop, until and again. 

{while} { - ) 

{'curly-while') 

Shared routine used by the words used to exit from loop 
program control structures: while and leave. 
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tFORTH SYSTEM INTEGERS 
(Alphabetical Listing) 


active 

applic 

auto 

base 

blk 

bound 

cbuff 

char 

char? 

clockO 

cloekl 

crt 

csp 

diskerror# 

drive 

dticks 

edde 

endtable 

execbuf 

extant 

gticks 

gvect 

here 


Holds the address of the Active 1 vocabulary array* 

Holds the address of the next available location in the 
header area of the current open vocabulary* 


Holds the number used to indicate the numeric base currently 
being used for all number I/O. 


During the interactive execution of program control structures, 
bound is used to hold the start address of the program control 
structures code which is to be executed interactively. 

Holds the address of the keyboard input circular buffer. 


Used to hold the return stack pointer which is saved away 
before compilation and checked after compilation. 

Holds the most recent disk error number. 

Holds the number used to specify the drive type. 

Holds count for the disk countdown timer. 

I/O flag. If true (nonzero) output should be sent to the 
editor* 

Holds the end address of the RAM token table. 

Holds the address of the vocabulary 'extant 1 array. 

Holds count for a general countdown timer. 

Used as a general execution vector. 

Holds the address of the next available location in the 
code area of the current open vocabulary. 
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hid 

in 

intexecvecs 

inuse 

itx 

jdn 

kev 

kstat 

kval 

last^thline 

lasttok 

len 

limit 

locals 

localvoc 

location 

loops 

lp 

maxblks 


During number formatting, holds the current offset into the 
string being constructed in the pad. 

Pointer used to mark word's progress through the input stream, 
in always holds the address of the next byte to be examined by 
word in the input stream. 

Interrupt execution vectors. 


Holds the address of the current input text. 


Holds the length of the word most recently extracted from the 
input stream by word. 

Used to hold the end address of the block of text to be 
examined by the word interpret . 

Used during the compilation of local variables to keep track of 
the amount of local variable return stack storage space which 
is required by the definition currently being compiled. Used 
primarily by the words doloc, local, and ; . 

Holds the address of the temporary hidden vocabulary used 
to hold the names of local vocabularies. 

Used during the compilation of local variables to hold the 
address of the special, invisible vocabulary used to hold the 
names of the local variables used by the word currently 
being compiled. 

System integer used during the compilation of a r do' loop 
program control structure to hold the amount of return stack 
space currently required by the definition being created. 

Used primarily by the words do f loop . +loop , doloc , 
and ; . 

I/O flag. If true (nonzero) output should be sent to the 
line printer. 
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modifiers 


nesting System state flag, if true {nonzero} the system is in a 
temporary compiling state (for interactive execution of 
program control structures). If false (0) the system is in 
the interpreting state. 

nestype The nestype system integer is used to hold a flag which, 

during the compilation of program control structures, holds 
a ’-l 1 if the program control structure currently being compiled 
is a ’do* loop or holds a 'O’ if the program control structure 
being compiled is a f begin’ loop. Used by the compiling word 
{while} , 

newest Holds the header address of the most recently defined colon 

definition, 

origin Holds the address of the start of the ’tFORTH’ dictionary. 

pad Holds the address of a location 128 (decimal) bytes from the 

start of a 3^^ (decimal) byte scratch location, The pad area 
is used by the number formatting operators and by the editor 
[CALC] function. 

panicked 

ramend Holds the address of the end of RAM memory, 

ramstart Holds the address of the start of RAM memory, 

ringsoundaddr 

Holds the address of a general ring sound routine. 

f 1; . 

savenest 
savestate 

s con tcopy - ^ r~r 

screen Holds the address of the start of display memory. 

screensize ♦"""■■ — f 

ser I/O flag. If true (nonzero) output should be sent to the 

serial port. 

^ jTi 

soundaddr Holds the address of a general sound routine . 

3 V ■ * I 

soundcount Holds general sound count. 

spO Holds the address of the base of the parameter stack, 

special Holds the address of the keyboard T special’ array. 
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state 


str 

strings 

targeting 

ticks 

tokens 

top 

vdelay 

vticks 

x 

y 


System state flag, if true (nonzero) system is in the compiling 
state. If false (0) the system in the interpreting state, 

L .J , * * 

Each time word gets the next word from the input string, it 
places the address of the character string in the str system 
integer. See the description for the system integer len also. 


Flag, If true {nonzero} target compilation is occurring. 
Holds time ticks. 

One of two system integers used to help in the assignment of 
tokens to new words {lasttok is the other system integer used 
for this purpose). See the techical discussion on local 
variables, 

Holds the address which is one byte beyond the top of 
’tFORTH f memory, 

Holds the value used to specify how long the video screen 
should stay 'on 1 on an unused terminal. 

Holds count for the video countdown timer. 

Holds 1 tFORTH’-s column output position. 

Holds 1 tFORTH T s row output position. 
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ix 3 APPENDIX: DEFINING WORDS 

J 'Z~7.L$+i b $r r J \t . f \) : v. 

Defining words are the most powerful of the Forth words because 
they allow the programmer tc create new Forth words. The 
defining words which, have been used so far (although they weren’t 
categorized as defining words previously) are : , integer , 
string , and vocabulary . 

CREATING NEW DEFINING WORDS 

i ‘ . c ,, 

The words <builds and does> are used to create new Forth defining 
words- The word does> (described in "Starting Forth") was not 
included in tForth since the ability to create new defining words 
was not required in the Cat system. However t the second listing 
in the appendix shows three words which, when included in the 
tForth dictionary, add the ability to create defining words to 
the Cat system. 

The format for creating defining words with these extension words 
is: 

: <name> 

<bullds **,compile time actions**, 

does> .*-execution time actions,** 


(Note that in Chapter 11 of "Starting Forth" the word create is 
used in place of the word <builds.) Here is how the f characters 1 
example found on page 293^295 of "Starting Forth" could be 


implemented using <builds and 
: characters ( n - } 


<builds ( 

dup , ( 

( 

( 

( 

allot ( 

( 

does> ( 

( 

( 

( 

dup { 

H ♦ ( 

( 

( 

swap @ ( 

( 

{ 


does> 


Creates a new dictionary entry, ) 
Compile the count into the first. ) 
Position in the child word T s, ) 
Parameter field for future ) 
reference. ) 

Allocate count bytes in the code ) 
area for the string characters, } 
Marks the beginning of the run- } 
time code, leaves the parameter ) 
field address of the child word ) 
on the stack at run-time. } 

Copy the parameter field address, ) 
Advance the address past the } 
four byte count value to the ) 
actual start of the string, ) 

Swap the string address with the ) 
count addr and fetch the count ) 
value from the count address, ) 


20 characters me 
me * , 20 479AG 
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When the child word created by characters ( me in the above 
example) is executed, it returns the length of its character 
array and the address of its character array on the stack. 

Defining the word words: 


hex 


0 integer doesptr 


( holds the address of where to patch token ) 


: <builds 


( - ) 

create ( 

4ED3 w, { 

here doesptr to 
0 w, { 


create the new name ) 
it will do a nsst ) 

{ remember where the token should go ) 
and make space for it ) 


<does>> { - ) 

r-addr 

doesptr v! 


{ terminate this word and get token addr ) 
{ find the compiled token ) 

{ and back patch it } 


does> { - ) 

recycledtoken ( allocate a token ) 

dup -1 = 

abort" out of tokens" { and test it first ) 
dup 100 < 

abort" must be a 2 byte token” 


( remember which token it was ) 

( compile the runtime version of does> ) 

( and the token for the does> code ) 

( align here pointer on even address } 
here lasttok +table ! ( and store address of does> part in table 

4ED3 w, ( nest the does part ) 

compile raddr ( so doesn’t return and so data address is ) 

( on stack } 


lasttok to 
compile <does>> 
lasttok w, 
align 


immediate 


: test ( n | n addr \ compiles an array with n entries, 

runtime takes an entry number and returns the addr for it } 

<builds 4 * allot ( allocate space ) 

does> 

swap ( calculate address ) 

4 * + ; 
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